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1e PCW-TT est mort! 
… Vive le PUW/-PA0! 


DTP-PAO, adaptation de ‘The Desktop Publisher” de Database Software, 
vous sort du carcan du TT (Traitement de Texte) et vous ouvre un potentiel 
de graphismes sur votre PCW. A l’aide de DTP-PAO vous avez la possibilité 
de créer vos propres prospectus, publicités, en-têtes, bulletins d'’informa- 
tions, puis de les imprimer avec des titres, des textes et des graphismes 
disposés exactement selon la mise en page que vous avez choisie. 





Convivialité 

C'est d'une simplicité déroutante! 

Utilisant les touches du clavier ou 
une souris AMX, Kempston ou Elec- 
tric Studio, vous déplacez un poin- 
teur visualisé à l'écran et “cliquez” 
sur l'option sélectionnée. Des menus 
déroulants vous donnent instan- 
tanément accès à toutes les pos- 
sibilités de DTA-PAO. 





Fonctionnement du logiciel 
Vouse démarrez en préparant votre 
mise en page. Vous décidez du 
nombre et de la largeur des colon- 
nes de texte, ainsi que de la pos- 
ition des fenêtres qui contiendront 
des graphismes, des titres et des 
sous-titres. 

Vous chargez votre texte préparé 
avec LocoScript ou tout autre logi- 
ciel de TT capable de produire un 
fichier ASCII. L'Editeur-Texte de 
DTP-PAO vous permet de créer un 
texte ‘‘’justifié”’ avec des caractères 
gras ou italiques affichés comme 
ils seront imprimés sur papier. 

Vous pouvez créer des graphi- 


smes avec l'Editeur-Graphique très 
puissant de DTP-PAO. Vous 
dessinez des lignes, des boîtes, des 
triangles et des ellipses. Vous 
remplissez des secteurs ou vous 
peignez à main libre en vous serv- 
ant d’un des 16 motifs disponibles. 
A l'aide d’une ‘‘loupe’’ vous retou- 
chez votre dessin point par point. 

Il y a même un Editeur-Police 
(éditeur de fontes) qui vous permet 
de créer vos propres polices de 
caractères pour vos titres. 

Quant tout est prêt, vous pouvez 
faire paraître à l'écran votre chef 
d'oeuvre en miniature, et l’imp- 
rimer. 





Voilà ce que vous aurez ... 


Une disquette double face qui con- 
tient les trois programmes prin- 
cipaux, une sélection de ‘’Clip-Art” 
(fichier de graphismes tout prêts), 
des polices de caractères supplé- 
mentaires, une page d'exemples, 
et un manuel d'instruction très 
complet. 


DT ROMEO Tu HAUT Li À 
' 
ET DT DT 





TE, DINLE CEE FOeS ADD MIT, UNE ‘hit ] 
DTA WU KDE } s 








Visualisation de la page 


Powerproducts France sarl 
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60200 Compiègne 
France 
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Made in England 


BON DE COMMANDE à retourner à POWER PRODUCTS FRANCE Sarl 


Cour de la Gare - 60200 COMPIEGNE 

Tél : 44 83 48 48 
Je ne peux plus attendre . je veux enfin être libéré 
Envoyez-moi vite la version POWER DTP-PAO suivante : 
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Date d'expiration 
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NTI TI ATOS 


Cette histoire démarra réellement lorsque 
Marcel, généralement peu chanceux, repartit 
d’une tombola quelconque avec, sous le 
bras, le micro-ordinateur qu'il venait de 
gagner. 

A peine arrivé, il le déballa avec frénésie et 
s'empressa d’'avaler goulûment, l’énorme 
manuel qui lui tenait compagnie... Quelques 
mois passèrent durant lesquels il ne chôma 
pas. Copains, fiancées, sorties, il laissa tout 
tomber pour s’engloutir d’octets, quand il 
découvrit (un beau jour, évidemment) que 
son nouveau compagnon pouvait d’un coup, 
d’un seul se connecter au monde entier. 
Rasant son compte d'épargne, il s’offrit un 
modem et commenca la ballade. 

Marcel était indéniablement très doué... 
Déprotégeant codes d'accès sur codes 
d'accès, plongeant dans les entrailles des 
serveurs les plus fermés, s’ébattant dans les 
bases de données les plus tordues, il finit par 
arriver à renflouer son livret d'épargne en 
accédant directement à l’ordinateur chargé 
de s’en occuper. 

Quelques milliers de francs pour démarrer, 
puis le compte rempli jusqu’au goulot, 
Marcel s’en fut ailleurs. N’étant pas dénué 
d'humour, il fit livrer deux tonnes de sous- 
vêtements érotiques à l'évêché du coin, 
déclancha le plan épervier pour que sa 
grand-mère, qu'il ne pouvait souffrir, se 
retrouvât cernée par trois divisions blindées 
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et termina cette mémorable journée par 
l’amnistie de 35000 amendes. 

Vraiment, Marcel s’amusait beaucoup et sa 
ruse déjouait allègrement toutes les 
tentatives de piègeage que de savants 
informaticiens mettaient en place. Il faut 
avouer que Marcel ne les aidaient guère et 
leur menait une vie très dure. Après avoir 
réussi à faire enfermer la moitié d’entre eux 
pour chèques sans provision et démissionner 
l’autre pour incompétence, il décida de 
trouver mieux... 

Il soupait en compagnie de sa joyeuse 
famille qui, soit dit en passant, ignoraït tout 
de ses activités nocturnes, quand les 
informations chantèrent leur lot de 
catastrophes enchaînant tout de go sur 
l'annonce suivante : ‘* Un communiqué nous 
parvient du ministère de l’intérieur : surprise 
aux présidentielles : élection de Monsieur 
Marcel Boulougnac, candidat non-inscrit 
avec 97% des suffrages..." 

La famille s'arrêta stupéfaite. Se tournant 
unanimement vers le nouveau président des 
Français, leurs yeux ahuris semblaient 
vouloir comprendre... Nullement 
décontenancé, Marcel leur souriait, enjoueur, 
puis d’un air tout penaud leur déclara enfin 
‘‘eh bien quoi, c’est pas parce que j'ai 
quatorze ans que j'peux pas m'amuser un 
peu, non ?...” 


Gilles PROBST 
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INITIATION 


INITIATION À DBASE 11. 10e EPISODE 


ous allons aujourd'hui nous pencher 
sur un problème aussi passionant que 
complexe: celui de la création d'un 
système-expert en utilisant le langage de 
programmation de Dbase. Pour bien 
comprendre la façon dont on aboutit à un 
tel programme, lequel d'ailleurs résumera 
très bien tout ce que l’on a vu depuis le 
début de cette série (un an déjà...), il faut 
au préalable présenter notre futur 
Système-Expert. 


Nous avons vu dans un précédent numéro, non 
pas dans cette (splendide et merveilleuse) série, 
mais dans un autre article ce qu'est un système- 
expert essentiel. Rappelons donc quelques 
notions et complétons-les. 


Un système-expert est un programme 
informatique qui contient, ou est supposé 
contenir, les connaissances d’un expert humain. 
Ce savoir est stocké dans une base de 
connaissances, laquelle est utilisable grâce à un 
algorithme fondamental, le moteur d’inférences. 
Ce moteur peut fonctionner de deux principales 
façons : en chaînage avant ou en chaînage 
arrière (ou les deux ensemble etc). 


Le principe de fonctionnement et d’utilisation 
est simple. L'expert entre dans la base de 
connaissances, son savoir codé sous forme de 
‘règles, c’est-à-dire généralement sous la forme 
suivante : 


- Une assertion est vraie SI [liste de conditions...] 
Pour éclairer cela, prenons l’exemple suivant, 
que l’on supposera dans un système-expert 
médical (l'expert : expert en médecine, c’est le 
médecin !) : 


Règle n°1 : 
Le patient à la scarlatine SI 


- Il a de l’angine 


- Il a de la fièvre 
- Il présente une éruption généralisée sur 
le corps 


Nous nommerons CONCLUSION l'expression 
[Le patient à la scarlatine] et CONDITIONS 
[ll à de l’angine] , [Il à de la fièvre] et [Il 
présente une éruption généralisée sur le 
corps]. 


On peut imaginer une base de connaissances 
composées de centaines de règles de ce genre, 
ce qui d’ailleurs n’est pas une nouveauté en 
soi,les Egyptiens ont laissé les mêmes sous forme 
de hiéroglyphes dès le XVII: siècle avant J.C. 
Pour les utiliser efficacement, certains systèmes- 





Par Patrice Bihan PREMIERE MONDIALE 


Système-Expert en chaînage avant 
avec Dbase Il (1ere Partie) 


experts leur ajoutent des coefficients de 
vraisemblance ou de certitude ou encore de 
probabilités que l’on combinent entre les règles : 
par exemple, on dira que la règle n° 1 est vraie à90%. 


Par ailleurs, il faut leur adjoindre une autre 
notion, celle concernant les ‘‘faits‘‘. Ces 
derniers sont simplement un cas particulier qu’il 
convient de démontrer ou non, en les mesurant 
à la lumière des règles. Dans l’exemple médical, 
les faits sont tout simplement la description de 
l’état d’un patient. Pour connaître sa maladie, 
on va analyser chaque règle et comparer les 
conditions contenues dans cette dernière aux 
faits. Si toutes les conditions d’une règle sont 
des faits, alors la conclusion de cette règle est 
vraie: par exemple, si l’on décrit le patient en 
disant qu’il a de la fièvre, une éruption 
généralisée, de l’angine et les yeux rouges, on 
peut donc dire que la règle édictée plus haut se 
révèlera (probablement) vraie à l'examen des 
faits. Par contre, la règle suivante : 





ne peut être retenue, car 
les conditions ne sont 
pas toutes vraies. 







Règle n°2 
Le patient à la typhoïde SI 


- Il a de la fièvre 
- Il est sous la torpeur 


Pour faire 
fonctionner tout cela, 
une fois la base de 
règles établie, il faut 
le moteur d’inférences, c’est-à-dire le système 
qui va comparer les règles et les faits et déduire. 
Celui que nous vous proposons ce mois-ci 
fonctionne en chaînage avant. Cela signifie ici 
que l’on va analyser une à une les règles, et au 
sein de chacune, analyser chaque condition. On 
peut imaginer qu’une condition peut être ou un 
fait, ou même une règle. Prenons l’exemple 
suivant : 
faits vrais : 
B,D,F,G,H,Q,R 
règles: 

e A est vraie SI B,C 


Ces cinq règles 
signifient simplement 
que, par exemple : 


La conclusion A est 
vrai siB l’est, et si 
C l’est également. 


eE est vraie SI F,G,H 
° Jest vraie SI Q,R 
e Pest vraie SI A,I 
e Cest vraie SI D,E 





Si on l’examine, on 
voit que B est un fait 
et que C est une 
règle. Pour que A soit vrai, il faut donc vérifier 
si C est vraie ; or C est vraie, si D et E le sont. 
Il faut donc les vérifier etc. En fait, on 
s'aperçoit très vite avec cet exemple, que pour 
le résoudre, c’est-à-dire trouver ce qui est 
‘“‘trouvable‘', il faut ou bien : 


- INITIATION A DBASE II e L'ECHO DU PCW N°12 





- Lire chaque règle et tenter de la résoudre, 
auquel cas on ajoute dans la liste des faits la 
conclusion comme un fait nouveau puis, arrivé 
en fin de liste de règles, recommencer jusqu’à 
saturation, 


- Partir d’une question précise (est-ce que A est 
vrai par exemple) et tenter de la démontrer en 
remontant des règles vers les faits. 


La première méthode se nomme le chaînage 
avant par saturation, et la seconde le chaînage 
arrière. C’est la première méthode de recherche 
que nous vous proposons dans ce programme. 


Comment allons-nous procéder ? Reprenons 
l’exemple précédent. On note qu’il y a deux 
types de connaissance : les faits et les règles. Ces 
deux types forment la base de connaissance, 
laquelle est donc divisée en une base de faits, et 
une base de règles. Qui dit base avec Dbase dit 
fichier (je ne suis pas mécontent de cette 
formule...) : nous allons donc faire deux fichiers, 
nommés FAITS et REGLES (restons simple). Le 
moteur d’inférences qui va les analyser va 
fonctionner ainsi : 


PROCEDURE D'INFERENCES : 


- Un test est initialisé à O (zéro) au départ avec 
la variable TEST 

- Il va extraire chaque règle une à une du fichier 
REGLES 

- Il va comparer chaque condition au fait du 

fichier FAITS 

e Si égalité : le système analyse la condition 
suivante 

e Si non-égalité : la règle n’est pas démontrable 
et il passe à la suivante 

Si toutes les conditions sont vraies, alors la 

conclusion est ajoutée dans le fichier FAITS 

(elle pourra donc être ensuite éventuellement 

analysée) et la valeur TEST est mise à 1. 

Si toutes les règles ont été lues, et que la 

valeur TEST est égale à 1, c’est qu’au moins 

une conclusion a été ajoutée dans le fichier 

FAITS, et que, éventuellement, de nouvelles 

déductions sont possibles ; on remet donc 

TEST à O et on recommence la PROCEDURE 

D’INFERENCES. 

Si toutes les règles ont été lues, et que la 

valeur TEST est égale à O, c’est que le système 

est arrivé à saturation : il n’y a plus rien à 

déduire ; on peut donc arrêter et lire la liste 

des faits ajoutés dans la base de faits. 


Pour la comprendre, on peut simuler l’expertise 
des règles précédentes : 


TEST =0 


Liste des faits : B,D,F,G,H,Q,R. 


Analyse de la règle n°1 : 
Echec : B est vrai mais pas C. 


Analyse de la règle n°2 : 
Succès : E est ajouté dans la liste des faits 
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TEST=1 


Liste des faits : B,D,F,G,H,Q,R.E. 


Analyse de la règle n°3 : 
Succès : I est ajouté dans la liste des faits 


TEST=1 


Liste des faits : B,D,F,G,H,Q,R;E,I. 


Analyse de la règle n°4 : 
Echec : I est vrai mais pas A. 


Analyse de la règle n°5 : 
Succès : C est ajouté dans la liste des faits 


TEST = 1 


Liste des faits : B,D,F,G,H,Q,R,E,I,C. 


Comme TEST = 1, on recommence l'analyse des 
règles, en évitant celles déjà résolues et en 
remettant TEST à O : 


TEST =0 


Analyse de la règle n°1 : 
Succès : A est ajouté dans la liste des faits 


TEST=1 


Liste des faits : B,D,F,G,H,Q,R;E,I,C,A. 


Analyse de la règle n°4 (puisque la 2 et la 3 
sont déja résolues) : 
Succès : P est ajouté dans la liste des faits 


TEST = 1 
Liste des faits : B,D,F,G,H,Q,R;E,I,C,A,P. 


Comme TEST = 1, on recommence l'analyse des 
règles, en évitant celles déjà résolues et en 
remettant TEST à O : 


TEST =0 


Toutes les règles ont été analysées et résolues. Il 
n’y a donc plus rien à déduire : les faits 
nouveaux sont donc E,I,C,A,P et cet ordre 
donne la profondeur de résolution. Pour 
prouver que P est vrai, par exemple, il faut 
donc prouver A d’abord ; et A n’est vrai qu’en 
prouvant C d’abord etc. 


La procédure INFERENCE est la procédure 
principale du programme. Nous l’avons 
simplifiée alors que le programme que nous 
présentons est un peu plus complexe. En effet, 
pour en faire un véritable outil, nous lui avons 
adjoint de multiples procédures. 


Le programme se décompose donc ainsi : 
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EXPERT 


CHERCHE 








RECHERCHE 





| COMPARAISON, 
1 














INITIAL 








CONTINUE 


Chaque rectangle représente une procédure, 
c'est-à-dire un programme indépendant (sauf 
QUIT et FIN). Cette façon de programmer, qui 
n'est d’ailleurs pas propre à Dbase mais que l’on 
retrouve en Pascal, certains Basic, est préférable 
à toute autre ici. Le lecteur aura compris que la 
procédure COMPARAISON est utilisable 
seulement dans RECHERCHE, laquelle ne l’est 
que dans CHERCHE. 





Par manque de place, nous présenterons la suite 
du programme et sa description le mois 
prochain mais nous allons voir maintenant la 
partie principale du programme, le moteur 
d'inférences, qui est nommé ici CHERCHE, 
RECHERCHE et COMPARAISON. Les sous- 
programmes qui suivent vont vous permettre 
cependant d'utiliser le système-expert. Voici 
tout d’abord le programme (rappelons que pour 
créer un progamme sous Dbase, on utilise la 
commande : MODIFY COMM suivi du nom de 
ce dernier. Comme l'éditeur de Dbase est une 
vraie calamité, nous conseillons à ceux qui 
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possèdent la dernière version de LOCOSCRIPT 
(version 1.21) d'écrire chaque programme avec 
leur traitement de texte, en le nommant par 
exemple CHERCHE, puis en transformant le 
texte avec l'option [Créer fichier ASCII] dans 
le menu F7 Modes, et en renommant leur 
programme avec l’extension CMD, qui désigne 
un programme Dbase). 


SOUS-PROGRAMME CHERCHE : 
ERASE 


à 10,10 SAY ‘‘***** MOTEUR D INFERENCES d'ordre 0 ********* 


DO INITIAL 

SELECT PRIMARY 

USE FAITS 

GO BOTTOM 

STORE # TO DERNIER 
? “Il y a ‘, DERNIER 
SELECT SECONDARY 


STORE 1 TO TEST 
DO WHILE TEST = 1 


STORE 0 TO TEST 
DO RECHERCHE 
PRE AUTRE CYCLE °°" 
SELECT SECONDARY 
ENDDO 
? ‘‘ Remise à la normale du champ VALIDATION“ 
SELECT SECONDARY 
GO TOP 
DO WHILE .NOT. EOF 
REPLACE VALIDATION WITH ‘ “ 
SKIP 
ENDDO 


," Faits enregistrés 


CO REXEXX XX LISTE DES FAITS KEKERXEXEXES 


SELECT PRIMARY 
USE FAITS 
?* *** FAITS DE DEPART: “ 
STORE 1 TO CLAUSE 
GO TOP 
DO WHILE CLAUSE (= DERNIER 
DISPLAY 
SKIP 
STORE 1 + CLAUSE TO CLAUSE 
ENDDO 
? 
? *#* FAITS DEDUITS: “ 
APPEND BLANK 


go DERNIER + 1 
DO WHILE .NOT. EOF 


DISPLAY 
SKIP 


ENDDO 


?‘“Effacement des faits déduits de la base de faits‘ 
?"Veuillez patienter SVP“ 


GO DERNIER + 1 
DELETE FOR # > DERNIER 
PACK 


DO CONTINUE 
RETURN 
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SOUS-PROGRAMME RECHERCHE 


SET TALK OFF 

ERASE 

SELECT SECONDARY 
GO TOP 

DO WHILE .NOT. EOF 


? ‘‘ J'analyse la règle n° ‘‘,# 
DISPLAY 


STORE ‘‘N‘‘° TO COMP 
IF VALIDATION = ‘‘ ‘: 


STORE CONDITIONI TO CLAUSE 
DO COMPARAISON 


IF COMP = ‘‘0‘‘ 


STORE CONDITIONZ TO CLAUSE 
DO COMPARAISON 


IF COMP = ‘‘0‘ 


STORE CONDITION3 TO CLAUSE 
DO COMPARAISON 


IF COMP = ‘‘O‘ 


STORE CONDITION4 TO CLAUSE 
DO COMPARAISON 


IF COMP = ‘‘O“: 


? ‘‘J’ajoute ‘+ CONCLUSION + ‘‘ dans la base de fait‘ 


release CLAUSE 
? CHR(?) 


SELECT PRIMARY 

USE FAITS INDEX INDFAIT 
REINDEX 

? ‘‘ Voici la liste des faits existants‘ 


APPEND BLANK 

REPLACE FAIT WITH CONCLUSION 
? ‘‘à laquelle j'ajoute ‘‘,FAIT 

LIST 

index on FAIT TO INDFAIT 

STORE 1 TO TEST 


SELECT SECONDARY 


REPLACE VALIDATION WITH ‘‘V‘‘ 
? ‘‘La règle est (provisoirement) invalidée‘‘ 


ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 


SELECT SECONDARY 
SKIP 


ENDDO 
RETURN 
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PROGRAMMATION DBASEII 


SOUS-PROGRAMME COMPARAISON 


if clause = “ (30 espaces) ‘* (NDR : Tapez 30 
store ‘‘O‘‘ to comp espaces entre les 
RETURN guillemets”’) 
ENDIF 

SELECT PRIMARY 

USE FAITS INDEX INDFAIT 

GO TOP 

STORE ‘‘N‘‘ to comp 

? “Recherche indexée sur ‘‘,clause,‘* et ‘‘,FAIT 
FIND &CLAUSE 

IF CLAUSE = FAIT 

? “succès “ 

? clause,‘ EST IDENTIQUE A ‘‘,FAIT 

STORE ‘‘O‘‘ to comp 

RETURN 

ENDIF 

SKIP 

ENDDO 

RETURN 


SOUS-PROGRAMME AJOUT _F 


ERASE 
à 5,10 SAY “ *****#++ BASE DE FAITS *‘*****#4 
STORE ‘‘O‘ TO TEST 

DO WHILE TEST = ‘“O“ 


ERASE 
à 10,10 SAY ‘* Ajout d’un fait (RETURN pour finir) 


APPEND BLANK 
? ‘Numéro du fait :*, # 
STORE (30 espaces) “TOF 
à 15,10 GET F PICTURE ‘‘{H{!IH NM" 
READ 
REPLACE FAIT WITH F 
if FAIT =“ (30 espaces) 
store ‘‘N‘° to test 
DELETE NEXT 1 


PACK 
ENDIF 


ENDDO 
RETURN 


SOUS-PROGRAMME AJOUT_R 


ERASE 
à 5,10 SAY ‘ ****** ENTREE DE REGLES * ** ***“ 
STORE ‘‘O‘‘ TO TEST 
DO WHILE TEST = ‘‘O“ 
APPEND BLANK 
? ‘ Regle n°‘, # 


STORE ‘ (30 espaces) ‘TO CLAUSE 
STORE CLAUSE TO CONCLUSION 
STORE CLAUSE TO CONDITIONI 
STORE CLAUSE TO CONDITION2 
STORE CLAUSE TO CONDITION3 
STORE CLAUSE TO CONDITION4 








PROGRAMMATION DBASE 





6,10 SAY ‘‘Conclusion‘* GET CONCLUSION PICTURE ‘‘!!H{HNININNNNNNNNNNIIINnnSS 
10,10 SAY ‘‘Cond 1 ‘‘ GET CONDITIONI PICTURE ‘‘!!HH{ININNINNNNNNNINNNNENS 
11,10 SAY ‘‘Cond 2 ‘‘ GET CONDITIONZ2 PICTURE ‘‘!!!{ NUITS 
12,10 SAY ‘‘Cond 2 ‘‘ GET CONDITION3 PICTURE ‘‘!!!1I1NININININNNNNNNNNNNNNT Se 
13,10 SAY ‘‘Cond 3 ‘‘ GET CONDITION4 PICTURE 


READ 


à 20,10 SAY ‘‘ Voulez-vous continuer à entrer des règles O/N “ 
WAIT TO TEST 

STORE !(TEST) TO TEST 
ERASE 


ENDDO 
RETURN 


SOUS-PROGRAMME CREAT _ F 


ERASE 

à 10,10 SAY ‘‘* CREATION DE LA BASE DE FAITS *‘* 
à 12,10 SAY ‘‘ Entrez la structure du fait “ 

CREATE FAITS 

RETURN 





SOUS-PROGRAMME CREAT__ R 


ERASE 

à 10,10 say ‘‘* CREATION DE LA BASE DE REGLES *** 
CREATE REGLES 

RETURN 


SOUS-PROGRAMME INITIAL 


SELECT PRIMARY 

USE FAITS 

INDEX ON FAIT TO INDFAIT 
SELECT SECONDARY 

USE REGLES 

RETURN 


SOUS-PROGRAMME CONTINUE 


? “Entrez O pour continuer sur ce module ou N pour 
Menu Principal" 

WAIT TO TEST 

STORE !(TEST) TO TEST 

RETURN 





Pour utiliser le programme en attentant d’avoir 
l’ensemble des modules, il faut, dans l’ordre : 


- Créer le fichier FAITS en entrant la commande 
DO CREAT __F : ce fichier est composé d’un 
seul champ nommé FAIT de 30 caractères. 


- Créer le fichier REGLES en entrant DO 
CREAT _R : ce fichier est composé des 6 
champs suivants : 


e VALIDATION : 
° CONCLUSION : 
e CONDITIONI : 

CONDITIONZ : 


1 caractère, 
30 caractères, 
30 caractères, 
30 caractères, 
30 caractères, 
30 caractères. 


e 
e CONDITION3 : 
e CONDITION: : 








- Entrer les faits de votre choix ou ceux de 
l'exemple précédent avec DO AJOUT _ F. 


- Entrer les règles de votre choix ou ceux de 
l'exemple précédent avec DO AJOUT_ KR. 


- Lancer l’expertise avec DO CHERCHE. 


Et voilà ! Le mois prochain, nous verrons dans 
le détail le principe du moteur à chaînage avant 
utilisé ici. Prenez soin en énonçant vos faits et 
règles d'écrire les clauses de la même façon : 
c'est primordial ! En effet, tout un chacun sait 
que, par exemple, le fait 


-[Patrice est un charmant garçon] 
est différent du fait : 


-[Patrice est un charmant garçon] 


Malgré les apparences, les espaces sont des 
caractères, ne l’oubliez pas ! Un détail encore. Si 
vous devez écrire une règle comportant plus de 
quatre conditions, il est facile de le faire ; 

par exemple, la règle 
suivante ne peut être DBASE 
énoncée directe- se trouvent 1 
ment dans la base disquette ECHO No 12 
de règles : 





Les Commandes 













A est vraie si 
[B,C,D;E,F] 


Pour l’introdui- 
re néanmoins, 
nous rempla- 
cerons E et F 
par une seule clause, 
laquelle sera en fait une règle que nous 
nommerons par exemple Z, ce qui donnera en réa- 
lité les deux règles suivantes : 

- À est vraie si [B,C,D,Z] 

- Z est vraie si [E,F]. 


A bientôt et bonne expertise ! 
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<? 











RE 


282: 









2 





RS 


RE 









Re 





LOGO DE CHOC 


Fidèle et assidu lecteur, vous vous souvenez une même trame à toutes les valeurs ou une 
parfaitement de notre précédente entrevue durant trame différente pour chaque valeur, en 
laquelle le LOGO s'est mis en graphes pour nous toute liberté quant au choix de la trame 
séduire. Camemberts, histogrammes hexagonaux (voir le tableau dans le listing). 


et trimensionnelles, il nous a révélé bien des 
capacités et nous nous séparâmes sur une 
promesse que je m'empresse de tenir aujourd'hui 
avec un nouveau programme d'histogrammes 
incluant une palette de trames qui donnent à nos 
graphiques une touche de classe du plus bel 
effet. 


L'histogramme représenté par le programme 
accepte 10 valeurs distinctes plus une 
servant à calculer l'échelle de 
représentation. Cette dernière doit 
forcément être plus grande que les dix 
autres pour que la représentation se fasse 
dans les meilleures conditions. 
Logotram... Le Logo 


Maintenant, vous le savez, le langage Logo Logotram... La disquette 
se trouve sur la face 4 de vos disquettes 
système. Si vous découvrez l'Echo pour la 
première fois, je vous encourage à vous 
procurer le numéro précédent dans lequel 
j'ai été très locace quant à son 


Là aussi, vous devez préparer une disquette 
Logo qui se lancera automatiquement dès la 
mise en route de l'ordinateur. L'opération 
impose le formatage par DISCKIT d'une 
face de disquette placée en lecteur A et la 


fonctionnement. recopie des fichiers mentionnés dans 
Toujours est-il que ce merveilleux langage l'encadré 2 ainsi que les procédures 
exploite parfaitement les capacités décrites dans l'encadré 3. 
graphiques du PCW et va encore nous le Pour permettre l'automatisation intégrale du 
démontrer avec cette application. démarrage, il ne vous reste plus qu’à créer 

l'indispensable PROFILE.SUB comme 

Logotram.. La présentation l'explique l'encadré 1. 
A la différence du Logograf du mois 
dernier, Logotram n'offre qu'un seul type Logotram... La saisie 
de représentation à savoir, l'histogramme Voilà bien le meilleur du programme 
baton réprésenté sur un plan. puisque vous allez devoir saisir quelques 

e ‘‘plus‘ du jour consiste à Encadré 1 


pouvoir incorporer dans la 
représentation un choix de 
trames prédéfini. Le nombre et tapez : BASIC RPED [RETURN] 

de possibilités est fixé à trente A l'affichage du menu de RPED remplacez la disquette CP/M par la disquette 


PROFILE.SUB 
Pour créer PROFILE.SUB, remettez la disquette CP/M face 2 dans le lecteur À 


à; ete Logograf et tapez sur la touche de fonction [f3] pour créer le fichier 
mais les combinaisons PROFILE.SUB dont vous taperez le nom en toutes lettres. 
peuvent varier dans des L'écran de saisie de RPED apparaît alors et vous pourrez entrer son contenu 
. 2 i = .+ 
proportions énormes. en toutes lettres soit NCUACE RE à 
; s . ee : SETKEYS KEYS.DRL [RETURN] 
Nous pouvons donc affecter LOGO.COM [RETURN] 
n'importe quelle trame à Ceci fait, sortez par [EXIT] pressée deux fois. 





n'importe quelle valeur, voir 
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PROGRAMME LOGO 


4 petites pages de procédures d’une 
exquise et délicate susceptibilité... Je 
vous l'ai déjà dit mais cela mérite que 
j'insiste ; le Logo est un langage qui ne 
pardonne aucune méprise quand 

à sa syntaxe. 

Espaces, ponctuations, minuscules et 
majuscules doivent être saisies sans la 
moindre transformation. 


Logotram... En route 


Eh bien, vous savez tout maintenant. 
Votre nouveau jouet est prêt à 
rationnaliser pour vous... 


[SHIFTJ[EXTRAIJ[EXIT] pressées 
ensemble lance la disquette et il ne 
reste qu'à entrer LOGOTRAM 
[RETURN] pour faire démarrer 
l'enfant prodigue. 


30 trames sont à votre service et vous 
n'aurez qu'à choisir celles qui vous 
conviennent pour arriver au brillant 
résultat qui trône au début de cet 
article. 


Seul grief, c’est un peu long, mais que 
voulez-vous, un Logo à ce prix-là, 
n'allons pas lui demander la lune ! 


DISQUETTE LOGOTRAM 


Une disquette de lancement automatique de Logotram impose que soient 


SAISIE DES PROCEDURES LOGOTRAM 


Les procédures sont regroupées en module à saisir et à sauver sous les 
noms suivants : 


AXESIMPLE.LOG - CHANGENO.LOG - DIMENSIO.LOG - ENTREES.LOG 
ENTREES2.L0G - FIN.LOG - MASQUE.LOG - STARTUP.LOG - SUITE2.LOG 
TITRE2.LOG - TRAMCHOI.LOG - TRAMEO1.LOG à TRAME30.LOG 


NOTE IMPORTANTE: les points d'exclamation situés en fin de ligne sont à 
remplacer par des espaces et signifient que la ligne continue à la ligne 
suivante. 


AVEC LOCOSCRIPT : 


La saisie se fait comme pour un texte normal. La conversion ASCII doit se 
faire une fois que le module a été entièrement tapé et que vous êtes sorti du 
mode édition par [EXIT] suivi de [ENTER]. De retour au disc manager, tapez 
[f7] puis [CI[AJS] + [ENTER] pour générer le fichier ASCII et sélectionnez le 
groupe 0 de la disquette Logograf pour les recevoir. 


AVEC LOGO : 


Lancez la disquette Logograf préparée comme cela est décrit dans les 
précédents encadrés par [SHIFTI[EXTRAJ[EXIT] et attendez l'apparition de 
‘?" pour taper chaque module. Ces modules sont composés de procédures 
démarrant par ‘‘’To’’ suivi de leur nom plus les variables et se termine par 
‘’end'’. Ces deux lignes étant distinctes du reste de la procédure. 


Pour corriger une ou plusieurs lignes faites : ed NOM DE LA PROCEDURE et 
corrigez à l’aide des flèches de déplacement, de [EOL] (pour aller en fin de 
ligne ou en début avec [SHIFT]) et [DEL] pour effacer un caractère. 

La sauvegarde d'un module avec ses procédures s'effectue une fois la saisie 
terminée et bien vérifiée. Sauvegarde par : save ‘‘’a:NOM DU MODULE" 
[RETURNI. 

Exemple : save ‘‘a:STARTUP‘' [RETURN] 


Notez qu'aucune extension n'est nécessaire puisque LOGO se charge 
d'ajouter PIC à chaque nom de fichier. 


Une fois la saisie du module suivant effacez le contenu de la mémoire par : 
ct erall recycle [RETURN] 
Enfin le chargement d'un module avec ses procédures s'obtient par : 
load ‘’A:NOM DU MODULE’ 





Encadré 3 


Encadré 2 


gp sm 14 


regroupés sur une face vierge de C2F, les fichiers suivants : 
J14FCPM3.EMS, SUBMIT.COM, PROFILE.SUB, LOGO.COM, LANGUAGE.COM, 
SETKEYS.COM, PIP.COM, KEYS.DRL ainsi que tous les modules Logograf. 


Voilà comment procéder : 


Allumez le PCW et insérez la disquette CP/M face 2. 


A l'apparition de A) ‘ tapez : PIP [RETURN] laissez cette disquette dans le 
lecteur A et à l'apparition de ‘*’ tapez : M: = *.EMS [RETURN] 


puis M:=SETKEYS.* [RETURN] 
puis M:=PIP.* [RETURN] 

puis M: = SUBMIT.* [RETURN] 
puis M: =LANGUAGE.* [RETURN] 


remplacez la face 2 par la face 4 (l’autre disquette CP/M) 


et ‘*’ toujours présent à l'écran, 

tapez : M:=LOGO.* [RETURN] 

puis : M:= *.DRL [RETURN] 

remplacez la face 4 par la disquette vierge 
et ‘*’ toujours présent à l'écran, 

tapez A:=M:*.* [RETURN] 

puis [STOP] 


"A>” revient et si vous tapez DIR [RETURN] vous devez constater qu’à 
l'exception de PROFILE.SUB (à créer suivant les explications de l’encadré 
PROFILE.SUB) tous les fichiers énoncés plus haut sont présents sur la disquette 
(si ce n'est pas le cas, recommencez la procédure comme elle est décrite). 





Pres 


8 358 


EC "DO Ca 
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de ee ER ARR 
to LOGOTRAM to ENTREES2 
setd "n! TITRE2 fs make "N 0 load "SUITEZ ar "TITRE recycle setcursor (61 9] make "CHOIO! rq 
ts ct setcursor [28 151 type (Patientez un moment s'il vous! setcursor [61 11] make "CHOIO2 rq 
ue fs go "rille setcursor [61 13] make "CHOI03 r 
abal "rille load "TRAMCHOI load "ENTREES2 | setcursor [61 15] make "CHOIO4 rq 
ts ct TRAMCHOI ENTREES2 ct setcursor [28 15] type (Patientez! setcursor [61 17] make "CHOLOS rq 
un moment s'il vous ne fs setcursor [61 191 nake "CHOI06 rq 
er "TRAMCHOI er "ENTREES2 recycle load "MASQUE Load "ENTRÉES! setcursor [61 21] make "CHOI07 rq 
cs ts ct MASQUE ENTRÉES , ne setcursor [61 231 make "CHOIO8 rq 
ct setcursor [24 15] type [Maintenant j'ai beaucoup del setcursor [61 25] make "CHOI09 rq 
travail a faire] x setcursor [61 27] make "CHOIIO rq 
fs er "MASQUE er "ENTREES Load "OIMENSIONS end 
DIMENSIONS sv1 sv2 13 tv4 VS vb 1v7 V8 9 :vlQ :m er! 
"DIMENSIONS 
ern Lvl v2 v3 v4 vS v6 v7 vB v9 v10 nl er "SUITEZ recycle OR UE Ca rad Le rs 
load "CHANGENOM CHANGENOM er "CHANGENDM recycle load! DR NU pe ne Fe M MAQUE LNe. NN te 
MAKES IMPLE 
fs cs ht AXESIMPLE to MASQUE 
PROCEDUREO! :L1 setcursor (37 4] pr CENTREE DES VALEURS] 
PAOCEDUREO2 :L2 setcursor [20 7] pr Centrez la premiere valeur, ,,!] 
PROCEDUREO3 :L3 setcursor [20 92 pr [entrez la deuxieme valeur, , ,!] 
PROCEDURE®4 LA setcursor [28 11] pr Centrez la troisieme valaur, ,:] 
PROCEDUREQS LS setcursor [20 13] pr Lentrez la quatriene valeur, ,:] 
PROCEDURENG LS setcursor [20 15] pr [entrez la cinquiene valeur, ,] 
PROCEDUREN7 :L7 setcursor [20 17] pr lentrez la sixiene valeur, ,,,1] 
PROCEOURE98 LB setcursor [20 19] pr Centrez la septieme valeur, , ,'1 
PROCEDURE99 :L9 setcursor [20 21] pr Lentrez la huitieme valeur, ,,'] 
PROCEDURE10 :L10 setcursor [29 23] pr lentrez la neuvieme valeur, , ,!] 
er (PROCEDURÉO! PROCEDUREO2 PROCEDUREO3 PROCEDUREA 4! setcursor [20 25] pr entrez la dixieme valeur, ,,,'] 
PROCEDUREOS PROCEDURES PROCEDUREO7 PROCEDURES PROCEDUREA9! setcursor [29 27] pr entrez une valeur superieure] 
PROCEDURE1Q AXESIMPLE] recycle setcursor [20 29] pr La toutes Les autres, ,,,,,,,,11 
make "N CN + 1) make "NOM word "GRAF CN) end 
ern [LI L2 L3 LA LS L6 L7 LS LA LI41 
load "SUITE? SUITE2 ern [TOUCHE] go ‘rille 
end 

NEPAL (| 17 ORNE ERP 


to ENTRÉES 


2 | asie dieu 4) late djn 


setcursor [49 9] make “v2 rq 


ta TITRE2 setcursor [49 11] make "v3 rq 
ct seteursor (39 11] ee 11 Ctype EX \ 1] pr [x] setcursor [49 13] make "v4 rq 
setcursor {30 12] type CX] setcursor [63 12] pr [x] setcursor [49 15] make "v5 rq 
setcursor [30 13] type C1 setcursor [38 131 type [L\ O\ G\ 0 seteursor [49 17] make "vé rq 
VTA R\ AU M] setcursor [63 131 pr [x] setcursor [49 19] make "v7 rq 
setcursor [30 14] type EX] setcursor (63 14] pr [X] setcursor [49 21] make "v8 rq 
setcursor [39 15] LP C1 setcursor [34 15] type [par Mar setcursor [49 23] make “v9 rq 
ie - Claire LALANNEÏ setcursor [63 161 ; CX] seteursor [49 26] make "v19 rq 
setcursor [39 16] type [x] setcursor [63 161 pr [x] setcursor [49 29] make "nm rq 
setcursor [30 17] type CX] setcursor (35 171 type Cpour! recycle 

"L'ECHO OU P,C,W,"1 setcursor [63 17] ps [x] end 

setcursor [30 181 type [x] setcursor (63 18] fe [x] 

setcursor [30 19] repeat 11 [type CX \ 1] pr CK] 


end mm uns 
IMG N 
Sn PT te ee ne Te re or dr TE OO IMENS I ONSR MT V2 23 V4 VS VE 47 VB 49 VID 1m 
ED D D  IRANCHOE | local "echelle make "echelle 520 / 1m 


make "LI round :vl * 'echelle 





to TRAMCHOI make "L2 round :v2 * 'echelle 
setcursor [34 31 type [CHOIX DES TRAMES] make "L3 round :v3 *k ‘echelle 
setcursor [10 7] type (Entrez le non des dix trames choisies] make "L4 round :v4 * 'echelle 
setcursor [23 9] AL {-nom de la premiere trame choisie, ,,!] make "LS round :v5 X ’echelle 
setcursor [23 11] Lype C-non de la deuxieme trame! make "LE round :v6 * 'echelle 
choisie, ,,,!] e make "L7 round :v7 X ‘echelle 
setcursor [25 131 type [-non de la troisiene trame! make "LS round :v8 * 'echelle 
choisie, ,!] | make "L9 round :v9 * 'echelle 
setcursor [23 151] type [-non de la quatriene trame! make "LI9 round :v10 * echelle 
choisie, ,!] end 

setcursor E25 17] type [-non de La cinquietie trame! 

choisie, ,:] 

setcursor [23 19] type [-non de la sixiene trame! 

choisie, ,,,,1] 

seteursor [23 21] type [-non de la septiene trame! 

choisie, ,,! 

setcursor [23 231 type C-non de La huitieme trame! 

choisie, ,,,; 

setcursor (23 25] type [-nom de la neuvieme trans! 

choisie, ,: 

setcursor (23 27] type [-non de la dixieme trame! 

DobLe Aa 1] 

en 
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DPERSRNARERERNE à 11 1 RSR RIRE 


to CHANGENOM 
load :CHOI01 make "LISTEO! text :CHOIQ1 define "PROCEDUREO]! 
LISTÉO er cul ern Der “CHOI91] rec ycle 
load :CHOI02 nake "LISTEO? text :CHOI02 ie, PAOEUMEN 
'LISTÉO? er HAN ern [LISTEO2 CHO192] rec ycl 
load : LCHOLES make "LISTEO3 text :CHOI03 mine SPROCEDURE92 
'LISTÉO3 :CHOI03 ern LLISTERS CH01931 recycle 
load : ta ‘make "LISTEO4 text :CHOIO4 dire FOEDMEN 
'LISTÉO4 :CHOI04 ern ET CHO194] recycl 
load  CHOLOS' make "LISTEOS text :CHOI95 tire SPRCEDURENS 
'LISTÉOS er :CHOIOS ern LLISTEOS CH0195] r 
load :CHOI06 nake "LISTEOG À :CHO196 ai SPRCEDURENS 
LISTEOS er ral” ern (ste “CHOI96] r 
load :CHO107 nake "LISTE? text :CHOI07 PH PROCEDUREO7! 
LISTEN? er ant ern Le CH0107] recycle 

:CHOI08 nake "LISTE98 HIDE define “PROCEDUREO8! 
PSE er ‘CHOI08 ern LÉ ITÈGS CHO198] recycle 
load :CHOI09 make "LISTEO9 text :CHOI9 define "PROCEDUREA9! 
'LISTÉO9 er :CHOI99 ern (LISTEO9 CHOIA9] recycle 
load :CHO110 make "LISTEIO text :CHOI10 detire "PROCEDURE 10! 
SLISTÉNE er :CHOI16 ern [LISTETO CHOI10] recycle 


CR RRR TEE |, 11 SRE DER 


to AXESIMPLE 

pe setpos (-359 -260] ge AE (350 -260] seth 0 1t 45 fd { 
l cos 45) 1t 135 fd 19 1t 135 

fd (5 / cos 45) pu setpos (-350 -260] pd setpos [-350 258 

] seth 279 

1t 45 fd (5 / cos 45) 1t 135 

fd 10 1t 135 fd (5 / cos 45) pu 

A C-359 -2601 seth 99 fd 10 seth 0 pd 

en 


ee M 


to SUITE 
make "TOUCHE ascii re 
if : TOUCHE = 83 nu "a savepic :NOM setd "n:] 
1 s TOUCHE = |15 (setd “ il AE NOM setd "m:] 
TOUCHE = 70 Cload "FIN cs ts FIN] 
TOUCHE = 102 [load "EN. FU ts FIN] 
! not :TOUCHE = 242 [SUITE2] 
TOUCHE = 242 Cht cs ts setcursor [28 15] pr [Retour au! 
Eu pour un nouveau choix] ern [NDM]] 


PR NE OR : |. PRES ER RER 
to FIN 

ct setcursor (30 11] FU 11 Ctype CX \ 1) 

setcursor [63 11] Que 
setcursor (30 12] type [x] setcursor [63 12] pr CX] 

setcursor (30 13] ee (x) TUE Li (38 13] type [Pas de! 
PERS setcursor [63 131 pr C* 

setcursor [30 14] type [x] ut (63 14] dé [4] 

setcursor [30 15] tps CX] setcursor (39 15] type L[Alors, aul 
revoir!] setcursor (63 15] pr [x] 

setcursor [30 16] type Ct] setcursor [63 16] ge [x] 

setcursor [30 17] type Ck] setcursor (35 17] type CA une! 
prochaine fois,,,,] Setcursor [63 17] je [x] 

setcursor (30 18) type CX] setcursor (63 18] pr [à] 

setcursor (30 19] repeat 11 Ctype [X \ 1] 

setcursor (63 19] pr [*] 

Dre "TOPLEVEL 

en 


RÉ 
ta TRAMEQ :1 

seth 9 fd :1l rt 90 fd 50 rt 99 fd :1 rt 
repeat 10 La Sort 90 fd :1 bk :1 it 90] 


bk 60 rt 
end 


90 fd 50 bk 58 


qe SUN MR pan mmnre 
to TRAMEO2 :1 


fd ‘lrt 90 fd 50 rt 90 fd :1 rt 90 fd 50 bk 50 rt 90 
local “n make "n int (11 / 6) 
repeat : ntfds lt 90 td 50 bk 50 rt 90] 

nX "5 rt 90 fd 10 1t 90 


+? 
nie “nouveau "TRAMEO2 


SNA RER 1 EL RÉ SSEE PRREEETES 


5 TRAMEO3 : 

rt 30 id ,50 rt + 1 il rt 90 fd 50 bk 50 rt 90 
Local ! n nake "n int (: 
repeat : on Cfd 5 1t 90 id Ge de 50 rt 90] 
bent 5 1t 90 
PEU 10 Efd 5 rt 90 fd :1 bk :1 1t 90] 
bk 60 rt 90 
end 
make “nouveau "TRAMEO3 


D 


to LR 


seth 0 fd ; dr fd 50 ie 90 fd :1 rt 90 fd 50 bk 58 
repeat 5 tfd I 99 fd :1 bk :1 it 90] 

AL rt 90 

n 


make “nouveau "TRAMEO4 


ee à NN D es as 
to TRAMEOS 

fd :1 rt TE ts 50 rt 
local "n make "nint 
repeat : imffdlo it 
bk în t'10 rt 90 fd 


end 
make "nouveau "TRAMEOS 


fd ais rt 90 fd 50 bk 50 rt 90 
ME bk 50 rt 90] 


90 

(17 
90 fd 
19 1t 90 


Re NS 


to TRAMEQ6 : 

fd let 90 (4 59 rt 90 14 1 rt 90 fd 50 bk 59 rt 90 
local "n make "n int (11 / 10) 

He L Cfd 16 1t 90 fd 50 bk 50 rt 301 

bk :n À 1t 90 

repeat A Ctd 19 rt 90 fd :1 bk :1 1t 90] 
bk 60 rt 99 

end 

make "nouveau "TRAMEO6 


NM 


to TRAMEQ7 :1 

seth 0 fd :1 rt 98 fd 50 rt 90 fd :1 rt 90 fd 50 seth 90 
repeat 4 td 14 Lt 90 fd :1 bk :1 rt 90] bk 40 

Li 3 [pu 1t 45 fd 2? pd fill bk 2 rt 45 fd 29] 1t 90 
en 

make “nouveau “TRAMEO7 


a 


to TRAMEO8 

fd 1 rt 90! fa 50 rt 90 fd 
local ? n make "nint (:1 / 
local "f make "f int ('1 / 20) 

repeat in Le 19 1t 99 fd 50 bk 59 rt 90] 
bk in*t10fds 

repeat | 'f [seth 270 g fd 2 pd fill pu bk 2 seth 0 fd 20] 
ne 1 À 20) + 5 rt 90 pd fd191t9 

en 

make "nouveau "TRAMEOS 


ve rt 90 fd 50 bk 50 rt 90 


= 
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eu 


o TRAMEO9 
É 'l rt 30 ta 50 rt 94 fd :1 rt 90 fd 50 bk 50 rt 96 
local "n make "n int (: l/ 1 10) 
repeat : on Cfd 19 Lt 90 fd 58 bk 50 rt 90] 
bk rn #10 1t 90 


repeat S Cfd 19 rt 90 fd :1 bk :1 1t 901 bk 59 rt 9 

repeat int (in / 2) [fd 5 seth 274 pu fds gé fill pu fd 28! 
pd fill pu fd 20 pd fill pu rt 90 fd : rt 30 fd 16 pd fill! 
D fd 28 pd fill pu fd 15 seth © fd 5 

Lo X int (in / 2)) rt 90 pd fà 1 1t 94 

en 


make "nouveau "TRAMEO9 


SR Re 


NES RRORRRENRRNSES |, it RSR ER 


to TRAME1Q :1 

seth 4 fd :] rt 90 fd 59 rt 94 fd :1 rt 99 fd 50 bk 59 seth 0 
local "n nake "n int (:1 / 18) 

ppt in Cpd fd 19 repeat S Cseth 225 fd 10 / cos 45 pu seth! 
0 fd 10 pd] “. seth 99 fd 50 1t 99] 

Lx, bk in * 19 rt 90 fd 10 rt 90 


es nouveau "TRAME 19 


a 


to TRAME 


seth Q fa. re rt 90 fd ï t : fd :l rt 99 fd 50 bk 50 seth 0 
d 


ns 14 / cos 45 rt 45 pu bk 10]! 


local "n nake "nint (: 

repeat :n (repeat 5 [e 

pes seth 90 ‘à 50149 pa 
im X 19 rt 90 pd fd 

end 

make. "nouveau "TRAME! 


EE 


to TRAMEI2 ; 

sat (] 1 il # 90 fd 50 rt 90 fd 
fd101t9 

He. n ve RUE Fr ii 
repeat :n pu se repeat 5 Cseth 315 repeat 4 (pd! 
+ à [ds cos 45] seth 270 ji fd 19] seth 98 je fd 55 fi 
bk (in + 1) # 10 rt 99 pd fd 14 1t 90 


il rt 99 fd 50 bk 59 seth 0! 


a 7 


to TRAME13 1 

fd il rt 90 f4 50 rt 98 F4 :1 si 90 f3 50 rt 90 

local ‘n make "nint (:1 / 18 

rapeat in [rt 78,69 fd (58 / és 11,31) pu 1t 168,69 fd 59 rt! 


94 pd] 

bk int 19 rt 90 fd 64 1t 9ù 
end 

make "nouveau "TRAMEI2 


A 


to TRAMET4 :i 

fd let 94 fi 66 rt 90 fd ‘1 rt 90 fa 56 bk 50 rt 90 

local "n make "nant ( ‘1 / 16) 

En in Et 78,69 F4 (64 / cos 11,31) pu rt 168,69 fa 54 It! 
0: 
int 14 rt 94 fa 19 1t 96 

Le 

iake "nouveau "TRAMET4 








SE  ——  — 


: TRAMEIS 


‘1 
fd '1 rt 90 fd 50 rt 98 “ lrt 90 fd 50 bk 50 rt 90 
local "n make "nint (:1 / 10) 


repeat in [lt 78,69 fd (50 / cos 11,31) pu rt 168,69 fd 50 It! 


30 pd] 
bk 5 x 19 1t 90 fd 50 rt 9Ù 
repeat : in rt 78,69 td (50 / cos 11,31) pu 1t 168,69 fd 59 rt! 


54 pd] 

nn * 10 rt 90 fd 69 1t 90 
en 

make “nouveau "TRAMETS 


RSR ARMOR PEER || 25] TOR EERSGENE 


to TRAME16 :1 
“ri À fd «1 rt 90 fd 50 rt 90 fd : 


u 
al 1e n make "n int (:1 / 20) 
repeat ! ne AR 5 Lpé seth 339 fd 19 Lt 120 fd 10 
nu 120 fd 19 pu Seth 270 fd 10] pu seth 90 fd 50 


Ar X 24) + 10 rt 99 pd fd 10 1t 99 
en 
make "nouveau "TRAMET6 


‘Let 99 fd 50 bk 59 seth 0! 


1t 60 fd! 
1t 90 fd! 


a 


to TRAME 
OA ae À rt 90 fd 50 rt 90 fd :1 rt 90 fd 59 bk 59 seth 0! 
local “n make "n int (:1 / 20) 

repeat :n A 5 (pé s sath 334 id 19 1t 120 fd 
UE 120 fd V4 pu seth 270 fd 10] pu seth 90 fd 


bk (in # 20) + 19 seth 0 

repeat ! in AE 19 1t 99 repeat S [pu fd S pd fill pu fd 5] bk! 
50 rt 90 fd 10] 

bk (in # 24) seth 90 pd fd 10 seth 0 

en 

make "nouveau "TRAME17 


SR RER PRES ||. AE SRE 


to TRAME1S 

seth 9 fd : rt 90 fd 59 rt ; fd :1 rt 90 fd 50 bk 59 seth 0 
local "n make "n int (:1 / 10) 

repeat :n (fd d: AE 270 repeat 5 Crepeat 3 [fd 19 1t 120]! 
td 10] bk 59 seth 0] 

bk in*t 10 rt Es fd 10 1t 90 

end 

make "nouveau "TRAME18 


19 1t 60 fd! 
d 59 1t 90 fd! 


= "Ûñiû D 
to TRAME19 : 

ps fd'lrt 3e. fd 50 rt 99 fd :1 rt 90 fd 59 bk 50 rt 90 
ocal "n make "n int (1/1 

repeat in Cfd 19 1t 136 fd 10 rt 9 td 10 1t 90 fd 10 rt 90! 
td 10 LÉ 94 fd 10 rt 90 fd 10 Lt 98 fd 19 1t 135 pu fd 49,497 
1t 90 fd 7,071 pd] 

sr * n) rt 90 fd 19 1t 90 

en: 

make "nouveau "TRAMET9 


RER RER: | RER 


to TRAME29 1 
Nr d fd:lrt 96 fd 50 rt 90 fd :1 rt 94 fd 50 bk 50! 


local "n make "n int ('l /1 

repeat 5 Crepeat :n Qlt 45 ‘4 10 rt 99 fd 10 1t 45] bk in *! 
14.142 1t 9ù fd 14 rt 90] 

rt 96 fd 6 1t 90 

end 

make "nouveau "TRAMEZ9 


CR un 7, 7 
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nn) 


a TU |. 
to TRAME2] 


gé seth 0 td, let 90 fd 50 rt 90 fd :1 rt 98 fd 50 bk 50 rt! 
local in make "n int (:1 / 10) 

local "f make "f int (11 / 20) 

Lu 1" . à 1t 135 fd 10 rt 90 fd 19 1t 90 fd 10 rt 90! 
td 10 LÉ 90 fd 10 rt 90 fd 10 1t 90 fd 10 1t 135 pu fd 49,497! 
14 ® fd 7,071 pdl 

bk (10 4 on) fd 5 os Je 1f Lfd 19 seth 225 pu fd 2 pd 
fill pu bk 2 seth 9 fd | 

bk Cf #24) + 5 

rt 90 pd fd 10 1t 90 

end 

a 


to TRAME22 

seth 0 fd : É rt 90 fd 50 rt 90 fd :1 rt 99 fd 59 seth 0 
local “m make "n :1 / 14 local "b make "b 

repeat 2 [fd :n ré 90 fd :b rt 90] 

repeat 8 Caake "n Cm + :1 / 10) make "b (:b + 5) repeat 2! 
Cfd rm rt 90 fd :b rt 90] 

seth 90 fd 60 seth 0 


end 
make "nouveau "TRAME22 


me 


to TRAME23 
ue 0 fd': | sl 99 fd 50 rt 90 fd :1 rt 90 fd 59 bk 50 seth! 
local "nm make "m :1 / 10 local "b make "b 50 


res, 5 le ' Cib - 5) make "1 (11 - 1n) fd :b rt 99 fd! 
Ta 180 fd Cia * 5) 1t 90 pd fd 35 1t 99 
make "nouveau "TRAME23 


RER 1. 8 1 RENSRERRRERSE 


to TRAME24 

seth à fd : < rt 90 fd 59 rt 99 fd :1 rt 90 fd 50 bk 25 rt 90! 
e fd(1/2)-1 se seth Ô 

ocal "D nake “b 1 local "n nake "n :1 / 25 

neue LE in rt 98 fd :b rt 90 make "b :b + 2 make "m (mn! 


seth 180 sety -26 seth 90 fd 60 1t 90 


end 

A  — 
to TRAME2S : 

Li : pd n rt 90 fd 50 rt 90 fd :1 rt 90 fd 50 bk 50! 

se 

local "n make "n ge C1 / 15) pu fd 15 

repeat :n [seth 270 gi u fd8 pd NS 3 [seth 198 cet 5! 
puis Ît 144] seth 270 pu fd 17 pd] pu seth 90 fd 53 seth 0! 


5 pd) 
Eur Gin +1) * 16 rt 90 pd fd 14 1t 90 
en 
make "nouveau "TRAME25 


a 


to TRAME26 : 

20 , pd il ‘1 rt 90 fd 50 rt 90 fd :1 rt 90 fd 50 bk 50! 

se 

local "n make "n int (11 / 10) 

nre n Ltd 5 seth 270 repeat 5 [pu fd 5 pd fd 5] pl bk 50! 
. h 9 fd 5 seth 270 repeat 5 [pd fd S pu fd 5] pu bk 50 5e 


h 0] 
à bk in X 10 seth 90 fd 10 1t 90 


end 
AT nouveau "TRAME26 
to CERCLE 7 
pu fdr ré 95 pd local "c make "ce 3,14159 X re / 18 
repeat 36 [fd :C rt 14] 
pu 1t 95 bk :r ‘pd 


local "n nake "n Cint (1 / 10 


PROGRAMME LOGO 
Re 


to TRAME27 
seth 9 fd i U 90 fà 50 rt 90 f 








il rt 99 fd 59 bk 50 seth © 
repeat :n Cfd 10 1t 90 pu fd 10 pd CERCLE L A fd 15 pd! 
CERCLE 10 pu td 15 pd CERCLE 10 pu bk 40 rt 90] 

n. nt19 rt 90 pd fd 10 1t 90 

en 

nake "nouveau "TRAME27 

to MICERCLE 

De repeat 18 Cfd (3,14159 # 12 / 18) rt 16] 

en 


ee Re 


to TRAME28 :1 

seth 4 fd l rt 90 fd 50 rt 90 fd :1 rt 99 fd 58 bk 50 seth © 
fd 2 local "n nake "n int ((: 11-92) / 15) 

ee in [fd 15 1t 90 gu fd 2 gé seth 184 MICERCLE seth 180! 
. ERCLE seth 90 pu fd 36 seth 180 pd MICERCLE seth 99 pu fd! 


bk Cin X 15) + 2 rt 90 pd fd 10 1t 90 
end 


I 


to TRAME29 :1 
fat. fd | rt 90 fd 50 rt 90 fd 


n make "n int ('1 / 20) 


Lrt 90 fd 50 bk 59 seth 0! 
local " 
repeat ! JA [pu 1t 90 td 10 HS 3 [pd seth 0 RRes 4 Crt 90! 
1e bk 5] seth 270 pu fd 14 pd] pu seth 90 fd 52 seth 0 fd! 
bk 10 + (in * 20) rt 90 pd fd 19 seth 0 


end 
make "nouveau "TRAME29 


RENNES | |! A DRSRE RSS NRC 
to TRAME30 :1 

seth @ fd :l rt 90 fd ke À 90 fd 1 rt 99 fd 50 bk 50 seth 0 

local "n nake "n int ( 

4 pus in Cfd 5 seth 530 i repeat 9 Cfd 4 pd fd ! pu] bk 45! 

ke: nx5rt 90 pd fd 10 1t 99 


nake "nouveau "TRAME38 


n° des trames 


FTTETTENTTTT 
A AU 


‘ 
© 





w: 
Ls 
[NI 
We. 
he. 
ke. 
ù 
Ne: 





LOGOTRAN :ECHANTILLONNACE DES TRANS 





LOGOGRAF + L'ECHO DU PCW N°12 











_ OFFRE EXCEPTIONNELLE 
RUBANS POUR IMPRIMANTE 
* QUALITE SUPERIEURE * 


Cette offre 
spéciale est 
valable du 


01/09/87 
au 
31/11/87 



















Après des mois de recherche, le CLUB de l'ECHO DU PCW est 
enfin en mesure de vous présenter des rubans imprimante de 
qualité exceptionnelle, d'une longévité et d'un noir intense 
comme vous ne les avez jamais vus! 


RUBAN PCW 8256/8512 





INCROYABLE! 
Par 3 Pièces: 65f l'unité 


MEMBRES DU CLUB ECHO: 60 * f l'UNITE! 


Délai de livraison maximum: 10 jours 


BRENT 
(*) Ce prix est exclusivement réservé aux membres du club 
ECHO DU PCW 
5... EEE. 
* BON DE COMMANDE CLUB ECHO DU PCW # 





L 1 

L] 

u (France exclusivement) 

= NOM: PRENOM: 

a ADRESSE: 

L ] 

= Je commande par la présente: X 3 Rubans à 195F les 3 soit... XAIQSF = 225225: 

OR ET X 3 Rubans à 180 F les 3 soit ……. X 180F =... (*) 
« j'ajoute 15 F pour les frais de port et d'emballage 

«(”) PRIX SPECIAL POUR LES MEMBRES DU CLUB ECHO DU PCW (Indiquez votre numéro: ) 
« Ci-joint mon règlement par] MANDAT [] CHEQUE [1] CCP Signature obligatoire: 
" Adressez votre règlement à l'ordre de LOGI'STICK éditions 





« Centre d'Affaires Paris Nord - "Le Bonaparte" - Boîte 49 - 93153 Le Blanc Mesnil cédex 
» 
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(0) Datahase Softuare ! 


LA P.A.O QU'EST-CE ? 

Si je veux être clair, je dirais que la P.A.O 
concentre en un seul outil, le micro- 
ordinateur, les moyens de réaliser une mise 
en page tant au niveau de la maquette que 
de la finition. 

Ainsi donc, un texte brut, saisi avec notre 
LOCOSCRIPT habituel peut se transformer 
en ‘‘Une‘‘ de quotidien sans que nous ayons 
recours à toute la chaîne traditionnelle 
c'est-à-dire, maquette, photocomposition et 
montage. 


Attention, c’est ce vers quoi tend la P.A.O 
qui est encore loin des performances du 
circuit habituel. N’espérez pas faire un 
journal tel que l’Echo avec un programme 
de P.A.O aussi performant soit-il. Pour 
l’anecdote, avouons que nous avons nous- 
mêmes été très tentés de le faire et que les 
résultats nous en dissuadèrent très vite. 


Toujours est-il que si la P.A.O ne peut 
encore véritablement rivaliser avec l'édition 
traditionnelle, elle donne à tout un chacun 
des moyens de produire des documents 
d’une qualité bien supérieure à ce que le 
meilleur traitement de texte pouvait 
proposer. 


Les grandes nouveautés des logiciels de 
P.A.O par rapport aux traitements de texte 
nous semblent évidentes en découvrant la 
liste de leurs possibilités majeures. 


- Mixage textes et images : c'est 
assurément le point fort du procédé. Finis 
les textes brutes sans illustration. 
Maintenant les deux se côtoient malgré 
leur différence de stockage et d'utilisation. 
En effet, un texte est mémorisé par 
l'ordinateur comme une suite de codes 
dont chacun représente un signe (lettre, 
chiffre, symbole, etc) ou une fonction 
relative à la présentation (gras, souligné, 





INTRODUCTION 
A LA P.A.0. 


CIN DEV 
MAC DU PAUVRE. 


Par Marc HERMION 


| 
Oui, le PCW est bien en passe de devenir le MAC-INTOSH du pauvre. 
Pour un prix cinq fois moindre (j'irais bien jusqu'à 10 mais on va 
vraiment avoir l'air fauché !}, notre vaillant ordinateur tend, à la force 
du poignet de géniaux programmeurs, à marcher sur les traces de la 
célèbre progéniture du légendaire APPLE. Le programme que nous 
allons tester plus loin en est une preuve évidente. 
Descendant direct de la famille des PAGE-MAKER, READY SET GO et 
autre VENTURA, DTP-PAO a fidèlement respecté leur philosophie en 
cherchant à conserver la souplesse et les performances qui ont fait le 
succès de ses illustres modèles. Ces nouveaux outils de mise en page 
qu'on appelle aujourd'hui P.A.0 (Publication Assistée par Ordinateur] 
ou en anglais D.T.P (DeskTop Publishing), commencent à révolutionner 
le marché de l'édition en donnant aux micro-ordinateurs des moyens 
hier encore réservés au monde fermé des arts graphiques. 


indice, etc) alors que les images sont 
mémorisées selon des codages de type 
binaire où chaque point du dessin est un 
pixel allumé ou éteint (dans le cas du 
PCW). 


Si cette dernière forme de mémorisation 
d’une image est réduite à sa plus simple 
expression dans le cas du PCW, elle n’en 
illustre pas moins la difficulté qu’il a fallu 
surmonter pour arriver à faire cohabiter à 
tous les niveaux (affichage, traitement, 
stockage, impression) des fichiers 
diamétralement opposés. 


- Disposition des textes : il suffit de 
penser au moyen de disposer un texte en 
2 voir 3 colonnes sous LOCOSCRIPT 
pour comprendre toute la portée de cette 
fonction. En connaisseur, vous répondez 
immédiatement qu'il n’en existe aucune et 
c'est vrai ! Là encore la P.A.O arrive au 
grand galop pour régler ce problème selon 
des modalités qui, différentes d’un 
programme à l’autre, sont facilement 
accessibles. 
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- Enrichissement typographique : il s’agit 
là de possibilités auxquelles le traitement 
de texte ne nous a guère habitué et qui 
font le grand charme de la P.A.O. Elles 
donnent accès à des polices de caractères 
beaucoup plus élaborées que les 
sempiternels PICA ou ELITE qui, même 
condensés ou soulignés, s’avouent assez 
sommaires face aux nouvelles polices. Là 
aussi, les possibilités de chaque 
programme diffèrent totalement au point 
que cela en devient un sérieux critère de 
choix pour de nombreux acheteurs. 
ROMAN, GOTHIQUE, MODERN, GILL 
deviennent alors des polices familières. 
Leurs caractéristiques physiques sont aussi 
très supérieurement paramétrables tant au 
niveau du corps, de la graisse voir même 
de la châsse des caractères (si vous calez 
devant ces mots plongez sur le petit 
glossaire...) 


L’impression : ce dernier point ne 
concerne pas vraiment le PCW car les 
programmes de P.A.O qui existent pour 
lui sont tous prévus pour utiliser 
l'imprimante qu’il connaît depuis sa 
naissance. Par contre, de nombreux autres 
programmes tournant sur des machines 
plus sophistiquées sont conçus pour tirer 
le meilleur d’un nouveau type 
d'imprimante dite ‘‘à laser‘‘. Les 
performances sont alors bien supérieures 
en temps et en qualité. Le temps dans le 
cas du laser est extrêmement court 
puisque une page A4 remplie est imprimée 
en 20 secondes alors que le PCW la 
sortira péniblement en 5 minutes et pour 
ce qui est de la résolution (nombre de 
points imprimés par pouce carré) le 
rapport reste plus raisonnable soit 300 
points par pouce pour le laser contre 
approximativement 90 pour le PCW qui 
est, somme toute, une valeur très 
honorable pour une imprimante matricielle 
de ce prix. 


En résumé, la P.A.O transforme les micros 
en véritable petite unité de production 
graphique de qualité mais qui est encore 
assez loin de ce qu'offre le circuit 
traditionnel. Pour être raisonnable, elle doit 
aider à la création des documents qui se 
faisaient sur traitement de texte et destinés 
à la communication (bulletin, tarif, 
documentation, etc). La P.A.O demande 
aussi un travail de maquette (sur écran) et 
d'organisation qui peut rapidement devenir 
fastidieux dans le cas où le nombre de 
documents est important. Et la P.A.O en 
terme de productivité demande une étude 
précise en coût, en temps et en personnel 
qui n’est pas négligeable. 
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Voilà, la P.A.O est probablement ce que la 
micro-informatique à fait de mieux et notre 
PCW n'est pas épargné... Le logiciel que j’ai 
choisi pour compléter cette étude vous 
permettra d’en juger la philosophie car il est 
assez représentatif de ce que les 
programmes de ce type apportent... 


PETIT GLOSSAIRE 
DE P.A.O 


Châsse : elle correspond à la largeur 
d’un caractère. Certains programmes 
de P.A.O peuvent accepter une 
modification de celle-ci (châsse 
variable). 


Corps des lettres : mesure exprimant 
la hauteur des caractères en partant du 
pied de Ia lettre jusqu’au sommet 
(Apex). Exprimé généralement en 
points Didot (en France), de 
nombreux programmes anglo-saxon 
l’expriment en points Pica (à peu 
près équivalents). 


A titre d'exemple, les caractères des 
articles de l’Echo peuvent varier entre 
les corps 8 et 11. 


Graisse : c’est l'épaisseur du trait qui 
compose un caractère. On distingue 
principalement le maigre et le gras 
mais des valeurs intermédiaires ou 
extrêmes peuvent être envisagées 
(extra-maigre ou extra-gras). 


Maquette : technique de préparation 
de la répartition et de la disposition 
des textes, des illustrations et des gros 
titres à l’intérieur d’un document. 


Pixel : c’est la plus petite partie de 
l’écran qui correspond à un point. 


Une lettre sur l’écran du PCW est 
constituée de pixels allumés ou éteints 
dans une matrice de 8 sur 8. 
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DTP-PAO 
DE DATABASE 


Par Marc HERMION 


PRESENTATION D’ENSEMBLE 


Livré dans un boîtier thermoformé de faible 
encombrement, DTP se compose d’une 
seule disquette, pleine à craquer sur les 
deux faces, et d’un manuel à spirale qui 
semble avoir fait l’objet d’une attention 
particulière tant la clarté, la lisibilité et la 
présentation sont soignées. 


Si je m'en réfère aux instructions, la 
disquette placée en A se lance par un simple 
DTP [RETURN] qui lance toute la 
mécanique. Le chargement est assez long 
(environ 1 minute 30) car près de 130 Ko 
de programmes utiles sont transférés en M 
en vue d'accélérer le traitement. Ce 
transfert immobilise totalement le drive M 
et ce, aussi surprenant que cela puisse 
paraître, quelque soit la version de PCW. 
Donc sur 8256 ou 8512, le programme 
DTP-PAO n'acceptera de se lancer que si 
un ménage radical s’est fait en M 

(ERA M:*.* résoud le problème). 


L'écran d'attente (la table à dessin qui me 
sert d'illustration) m'aide à patienter et un 
premier menu s'affiche en haut de l'écran 
pour m'inviter à faire mes premiers choix... 
A ce stade, je préfère nettement replonger 
dans le manuel afin d'éviter les gaffes du 
béotiens que je suis encore... 


LA PHILOSOPHIE DE DTP-PAO 


Comme je l’ai présenté dans l'introduction, 
le problème de la P.A.O est d'arriver à 
créer des documents pouvant contenir des 
textes en une ou plusieurs colonnes, des 
grands titres ainsi que des illustrations ou 
images. 


Voilà comment DTP-PAO s'emploie à m'y 
aider : 


Ce logiciel de P.A.O n'est pas le premier à proposer aux PCWistes des 
fonctions de mise en page telles que j'ai pu les décrire dans 
l'introduction. NEWSDESK d'ELECTRIC STUDIO vise le même but mais 
j'ai choisi de vous recommander DTP-PAO pour trois raisons 
déterminantes: sa souplesse, sa puissance et surtout, son exceptionnel 
rapport qualité/prix. En toute impartialité (si, si !} j'ai dû me rendre aux 


raisons de la logique. Fervent défenseur de la gamme ELECTRIC 
STUDIO (souris et stylo) dont les programmes de dessins sont des 
modèles de convivialité et de performance, ma déception n'en fut que 
plus violente. NEWSDESK est un programme lourd et peu agréable 
dont la maniabilité comparativement à DTP-PAO fait penser à celle 
d'un char d'assaut comparativement à un mirage IV. La compatibilité 
avec le reste de la gamme ELECTRIC STUDIO n'est même plus une 


valeur ajoutée si l'on sait que DTP-PAO l'offre aussi. 


C'est donc à l'incontestable gagnant que je vais maintenant me 


consacrer. 


En premier lieu, il me faut créer une page 
de format dans laquelle je vais définir les 
cadres réservés à chaque élément. Texte ou 
graphique, la définition se fait assez 
rapidement à l’aide des touches de curseurs 













et d’un menu déroulant qui permet de Une page 
sélectionner le type de cadre voulu (texte Cr het 
ou graphique) en affectant à chacun le nom offerte 
; £ 4 en prime : 
qui me permettra de les récupérer dé aol 
individuellement. être 
créatif ! 


La première maquette terminée (c'est très 
rapide, je l'avoue), je dois ensuite la 
sauvegarder (impératif sinon elle est 
définitivement perdue) et sortir de l’option 
pour m'occuper de chaque cadre ainsi 
défini. Cette première mission remplie avec 
succès m'amène à plusieurs constats : 


Cette forme de gestion est simple, évidente 
est très rapide, mais elle est limitée à des 
colonnes de textes qui n’ont aucun lien les 
unes avec les autres. Une répartition 
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Frises et 
enca- 
drements.… 
le grand 
jeu ! 














homogène des textes risquent donc 
d'entraîner d’incroyables manipulations si la 
page à modifier est la première d’un dossier 
de 150! 


Dans cette même logique, le programme ne 
gère que des pages séparées et 
indépendantes les unes des autres alors que 
la plupart des logiciels de P.A.O plus 
évolués (mais aussi beaucoup plus chers ! 
Exemple VENTURA PUBLISHER qui coûte 
environ 7000 F) se chargent de répartir les 
textes sur plusieurs colonnes et sur 
plusieurs pages. 


J'insiste sur ce point car c'est le reproche 
majeur que je fais à ce logiciel dont la 
souplesse, pourtant, m'étonne encore. À ce 
grief, les éditeurs répondent que le PCW ne 
permet pas ce genre de luxe compte tenu 
du délai de traitement de texte volumineux. 
J'en conviens et réalise que la mise en page 
du petit Larousse n’est pas encore pour 
notre PCW... A ce prix-là me direz-vous. 


Mais revenons à cette première page que je 
viens de définir car il est temps de lui 
remplir le ventre. Je commence par le cadre 
graphique que j'ai décidé d'’affecter aux gros 
titres. Vous vous demandez probablement 
pourquoi j'ai réservé un cadre graphique à 
du texte fut-il grand, gros et fort. C’est 
simplement parce que j'ai la chance d’avoir 
l1 notice sous les yeux et que celle-ci me 
précise que les polices de caractères autres 
que celles que nous connaissons déjà (PICA, 
ELITE et les autres) ne sont disponibles 
qu'en mode graphique. 


Cela amène un deuxième constat. Le texte 
affecté au cadre texte défini dans l'édition 
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de page ne peut en aucun cas offrir de 
nouvelles polices. Standard il est, standard il 
reste et c’est encore ce qui distingue DTP- 
PAO de ses grands frères (plus chers je 

sais !). La déception est de courte durée dès 
que le seuil de l’édition graphique passe à 
l'assaut de ces 16 merveilleuses polices qui 
ne demandent qu'à faire les frais d’une 
imagination toujours en ébullition. 


J'embauche donc Guttemberg pour cette 
première expérience en lui faisant l’honneur 
de la prestigieuse police ‘OLD ENGLISH‘, 
ou vieil anglais, cousin germain du gothique 
absent de ce programme (qui est anglais 
d’abord !). 


A ce stade je découvre plusieurs détails qui 
me surprennent très agréablement car ils ne 
sont pas toujours présentés dans des 
logiciels beaucoup plus évolués : 

Tout d’abord, les polices ont été francisées 
et proposent les caractères accentués 
propres à notre chère langue (c’est 
suffisamment rare pour que je le signale), 
ensuite, les polices peuvent être agrandies 
ou réduites sans autres limites que la 
lisibilité (dans le cas de la réduction) et celle 
du cadre de la fenêtre graphique (dans le 
cas de l'agrandissement). Enfin, les polices 
peuvent être affichées et, a fortiori, 
imprimées selon les quatre directions 
(normale, de bas en haut, de haut en bas et 
de droite à gauche) chacun de ces modes 
pouvant être assorti de l’inversion vidéo des 
matrices de caractères permettant d'obtenir 
ce qu'on appelle, dans le jargon des 
graphistes, le noir au blanc à savoir 
caractère blanc sur fond noir (comme le 
bandeau du haut de cet article). 


Côté texte, même tactique : 


Conformément au principe du logiciel, je 
définis les cadres texte en hauteur et en 
largeur dans la page en cours d'édition. II 
faut ensuite que je les remplisse du texte 
prévu pour chacun d'eux. 


Pour le faire je dispose de deux choix : soit 
saisir mon texte à partir d’un éditeur inclu 
dans le programme (mode édition de texte), 
soit le récupérer à partir de fichiers ASCII 
issus de n'importe quel autre programme 
(LOCOSCRIPT, WORDSTAR, ETC...). 


Je remarque que l'éditeur est un modèle de 
simplicité quant à son utilisation. 


Ses performances sont honnêtes et sans 
avoir la puissance de LOCOSCRIPT, il en 
conserve de nombreuses particularités 
comme l'entrée des codes d’enrichissement 
tels que gras, italique par les touches 
et = suivis des codes de fonction 
(exemple GS pour gras, IQ pour italique, 
etc...). Justification optionnelle, pas de 
césure (coupure de mot en fin de ligne en 
typographie) et ce ni de façon manuelle 
(avec le tiret comme LOCOSCRIPT) ni 
même automatique. 


Coté graphique : DTP-PAO n'est pas mal 
non plus. Je m'y lance en suivant le même 
principe que précédemment à savoir 
l'édition d’un cadre graphique par le choix 
de l’option correspondante. A ce stade, le 
programme affiche différentes trames, la 
fenêtre de visualisation et deux cadres qui 
m'indiquent la proportion de ce que je 
visualise par rapport à la taille de la fenêtre 
de visualisation. 


Le principe de cette fenêtre est extrêmement 


simple : sachant qu’un cadre graphique peut 
être défini selon une taille maximale d’une 
page A4, soit 21 par 29.7, et la fenêtre de 
visualisation ne pouvant être aussi grande 
qu'une page A4, le programme n'affiche 
qu'une partie du cadre et permet de le 
déplacer dans tous les sens pour accéder à 
sa totalité. Ce principe est d’ailleurs en 
vigueur sur d’autres programmes tels que 
Cherry paint de MICRO C par exemple. 


Dans ce mode on dispose alors d’outils 
propres à la réalisation de graphismes de 
qualité. Je vous les livre dans l’encadré qui 
suit et vous fait remarquer que l’aérosol est 
absent. Omission calculée ou non, c’est une 
lacune par rapport à des programmes 
comme ceux du stylo optique (ELECTRIC 
STUDIO) ou CHERRY PAINT (MICRO C). 
Autre lacune génante, l’outil en cours de 
fonctionnement n’est pas visualisé et c'est 
avec horreur que pensant dessiner, j'ai 
sabordé mon œuvre d’art d’un coup de 
pinceau... Donc attention ! 


Le dessin terminé, la sauvegarde partielle ou 
totale de celui-ci m’est possible. Le 
programme me propose d’ailleurs les 
fameuses fonctions ‘COUPER: et 
‘“COLLER‘‘ qui ont fait la gloire du 
MAC-INTOSH (celui des riches !).. Donc 
COUPER permet la sauvegarde partielle 
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d’un dessin et COLLER, la fusion avec un 
autre... Facile et très utile, particulièrement 
si l’on sait que l’on peut assortir cela d’un 
agrandissement ou d’une réduction de la 
portion d'image concernée. 


Par contre, aucune rotation ou déformation 
d'image autre que celles que je viens de 
citer n’est possible. C’est dommage, mais il 
faut que j'apprenne à être un peu 
raisonnable de temps en temps... 


D1ILL LiuiNL LUNDLO  oiILE ÉLAÏL UNALLUUN LIT HULN 


NN 


WA 


IN 


Alors quelle impression ? 


Après mes différentes pérégrinations, je 
peux enfin considérer que ma page est 
terminée. Il ne me reste qu’à l’imprimer 
suivant les choix qui me sont proposés. Soit 
listing (un seul passage du charriot) idéal 
pour vérifier rapidement les résultats 
intermédiaires, soit courrier (trois 
passages !) pour la finition suprême. Je dis 
suprême parce que trois passages usent 
rapidement la patiente, les rubans et les 
nerfs. 


STVLE HECTOR FORMAT + 


ME ltios en 
ME Le 
ns sign ue à 719 Ws $ Le 


spir QUES avec En si : 
Lo 


vive 


se pe [e reg 
Ë Lt 


vo ; Î “a - la ai 1e 
G 
qu'il nl fée €, in 





À AJOUTER TE 





L'éditeur 
de police 
en action 


L'éditeur 
de texte : 
c'est pas 
LOCOSCRIPT 
mais ça 
marche ! 


CLASER || 
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1. Comment devenir chef de fabrication 


Définissez 
votre 
prémaquette 


d’un 


journal à grand tirage... 


en répartissant cadres, textes et cadres graphiques. 


2. 
Après avoir 
rempli chaque cadre, 





faites-en une ébauche. 


Servez, touillez, 
remuez et voilà le 
résultat ! 





Ne Manquez pas 


CXLESI ! 
1° ÉCBE |Compiets! ! 


CABAUCBE Par: A.de Niue 
A CELENRC gere RASE blancs. 
GUTTEMBERE 


Page 9 
Officiel, 






Ronaud FH Thatehori 
















aprés des siècles de 
tractatione longues et délicates, 
L'ECHO BAVARD embauche le ‘célèbre 
Quttemberg pour la réalisation et 
l'impression bulletin 
paroissial dont le tirage passe, «à 
cette occasion, de 7 à 15 exe 
plaires 

Pour retracer l'historique de cet 
incroyable accord, notre <orres- 
mdant d'Epinay-sur-Seine, lieu 
historique de la signature, nous 
indique, 
devant blanc, les 
négociations se seraient déroulées 
secrétement sous la table pour 
s'achever tärd dans la nuit eur le 
bastringue du Pimpoy's club... 
harmonie 
spirituelle avec son nouvel enplo- 
Quttenberg devait déclarer: 
. za 16 berisse! vive les 
pétitee badsanes. Commentaires 
élogieux donc qui devait amener à 
une signature définitive de ce qu'on 
dans 


Communique du 28 
février - 12h93 : 











Apres des mois de 
sommeil, Mister 
VIDI nous declare 
exclusivite 
ue Je me 
digitalise, je m 






de son 


























mis  d'interrogatoire 


de Pierre PAND 


responsabilité dans 
marqué de la fusée Ariane. 1 
sortie, sur roulettes, du paisis æ 
justice, 11 devait déclarer: *11001 
1001 0110 011 0110 11101 1100 
1010100110" signifiant ainsi qu'il 


tout simplement, trafiqué le eystèm 
d'allusege par RS-232 interposée... 
appelle déja les milieux s'avoue 
branchés: le contrat du #iècle! 
D'aprés des sources bien informés, 
Quttemberg s'accorderait quelques 
jours de cure de désintoxication 
avant de prendre complétement 
possession de ses nouvelles respon- 
sabilités au sein de la nouvelle 
équipe. Souhaitons-lui tous nos 
voeux de réussite dans la mission 
qu'il s'est fixée 


Chongez de 100k.. 
ulez en bétonneuÿe 


ra chemin de la cuisine où 11 niège 
babituellesent. 


ms Pieds Hickelés pour les lire en 
cachette. ..". 


Enfin comble du luxe, DTP-PAO permet la 
redirection de l’impression sur toute 
imprimante compatible Epson raccordée à 
l'interface Centronics. 


Et l’ouverture ? 


DTP-PAO peut s'enorgueillir de sa totale 
compatibilité avec bien des logiciels de 
graphismes. La liste que j'espère exhaustive 
se trouve dans l’encadré concernant ce 
domaine. Pour ce qui est de la souris, j’ai 
testé le logiciel avec la dernière-née de 
KEMPSTON et j'avoue avoir apprécié 
l’aisance qu'elle apporte. Déplacement, 
clicage, tout est beaucoup plus rapide et 

j' encourage l'emploi de cet outil à tout ceux 
que la P.A.O séduit car il se généralise. 
Donc, mieux vaut prendre de bonnes 
habitudes dès maintenant... 

Notez que d'autre souris fonctionnent aussi 
bien comme : AMX ou ELECTRIC STUDIO. 


DTP-PAO et compatibilité : 
Matériel 
STUDIO SOURIS KEMPSTON 


SCANNER MASTERSCAN 
VIDI DIGITALISEUR 
SOURIS AMX 

SOURIS ELECTRIC STUDIO 





En résumé 


Je vous laisse savourer le résultat de ma 
première rencontre avec DTP-PAO 
(authentique !) et j'espère faire mieux la 
prochaine fois. Mais je peux déjà conclure 
que j'ai eu entre les mains un logiciel fort 
bien réalisé, pratique et, surtout, très 
intelligemment conçu, ce qui mérite d’être 
salué. La prise en main du logiciel se fait 
immédiatement si l’on suit béatement le 
manuel (pour une fois que je le fais, je m’en 
félicite !). C’est donc sur un constat positif 
que je décerne la palme à DTP-PAO pour 
son exceptionnel rapport qualité/prix et sa 
maniabilité qui, malgré quelques petits 
défauts, le rendent pratique et agréable à 
manipuler. Seule regrettable imperfection, la 
répartition des textes entre les colonnes et 
les pages le rende inutilisable sur de longs 
textes. Quoiqu'il en soit, c’est un très très 
bon logiciel, intelligemment conçu au point 
de respecter en bien des points la 
philosophie des maîtres qui lui ont dicté la 
voie qui, si je m’en referre à la tendance, 
risque bien d’être royale... 
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GERVICE ENTREPRISES 2 


Au service de ses lecteurs, L'Echo du PCW met ses compétences, son savoir-faire 
et son important fichier de fournisseurs au service des entreprises de toutes tailles. 











Les prestations de ce service sont regroupées 
dans un catalogue spécial qui sera adressé à toute demande 
libellée sur papier à en-tête mentionnant les numéro de SIRET 
et d'APE (ou titre pour les professions libérales). 


Entièrement gratuit, ce nouveau catalogue ‘‘entreprise‘‘ est remis à jour et envoyé 
régulièrement à toute entreprise ou profession libérale qui en fait la demande. 


SOYEZ PRODUCTIF ! 
- PC/PCW la compatibilité est possible avec le service 


entreprise avec un nouveau service de transfert de fichiers 
soit : recopie de fichiers CP/M vers MS/DOS 
ou l'inverse (MS/DOS vers CP/M). 


- Ce qui sort de votre entreprise est à son image alors soignez-la avec : 
Papier à en-tête personnalisée en continu 
Facture à en-tête personnalisée en continu 
et tout type de formulaires personnalisés en continu. 


GAGNEZ DU TEMPS... 


- Le service entreprise, c’est aussi une liste de prestataires 
compétents pour résoudre vos problèmes quotidiens comme : 
Programmes sur mesure (tous langages) 

Connexions difficiles 


Maintenance et formation 
ET DE L'ARGENT ! 


- De nombreux revendeurs accordent des remises aux entreprises, 
collectivités et professions libérales. Le service entreprise vous en 
donne la liste actualisée. 


N'attendez pas pour inscrire votre entreprise en retournant ce jour le bon ci-dessous à : 
LOG/STICK - CAPN LE BONAPARTE - BOITE 49 - 93153 LE BLANC MESNIL CEDEX 


Rs ne ne PS TS ><- 


STE : FORME JURIDIQUE* : CAPITAL" : 











ADRESSE COMPLETE : 








NOM ET PRENOM DU RESPONSABLE ACHAT INFORMATIQUE : MR° - MME° - MELLE" : 


ACTIVITE PRINCIPALE : 





NOMBRE DE PCW EN SERVICE DANS L'ENTREPRISE : 


* FACULTATIF - ° RAYEZ LA MENTION INUTILE 


LA PUBLICATION 


ASSISTEE PAR ORDINATEUR 





BANC D'ESSAI 
DU DIGITALISEUR VID 


QUAND LA VUE 
VINT 


AU PCW... 


Par A. FRIEDRICH 





LA POMME? 








_ pendant près d’un an par la firme 
écossaise ROMBO, ce digitaliseur est un pur 
concentré de technique qui apporte au PCW 
des utilisations auxquelles personne n'avait 
encore pensé. La principale nouveauté est Ia 
sortie vidéo que l'interface inclue et qui 
permet de récupérer sur un téléviseur 
couleur tout ce que le PCW affiche et... 
en simultanée s'il vous plait ! 

Hardware. 


Comme de coutume l'interface se présente dans un 
boîtier moulé du type AMSTRAD (identique à la 
CPS-8256). Le raccordement se fait rapidement sur la 
broche du port d'extension situé au dos de la 
machine. Il faut noter toutefois que les nouveaux 


Figure 2 PCW étant livrés avec une sortie blindée, le 
Connection branchement de l'interface ne pourra s'effectuer qu'à 
tous l'aide d’un adaptateur AMSTRAD appelé CPS-1. 
Azmus Dans la mesure où l'interface prévoit une broche 


aussi bien 
en entrée 
qu'en 
sortie 


supplémentaire, une autre interface pourra être 
raccordée par-dessus le digitaliseur de façon à éviter 
d'interminable allez-retour derrière la machine. 


Moniteur noir & blanc 








Magnétoscope 





Caméscope 


BE | 
AY 
S a 
desuneilene  PCW  rroisceur 


825618512 vidéo 
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Figure 1. Multifenêtrage. réduction et textes pour 
une créativité débridée 


Sur le coté externe du boîtier, un espace est réservé à 
la connexion des accessoires vidéo et le réglage 
matériel de la luminosité et du contraste. 


La connexion se fait dans deux directions. Utilisant 
un signal vidéo composite, l'interface permet aussi 
bien l'entrée que la sortie sur des prises distinctes de 
type Cinch. 


Les possibilités sont alors extrêmement nombreuses et 
méritent d’être développées : 


Entrée (Vidéo IN). 


Indispensable pour la digitalisation, la prise entrée 
peut être raccordée directement à une caméra vidéo 
ou un caméscope sous réserve qu'elle délivre un 
signal vidéo composite. De l'avis d'un spécialiste, 
toute caméra n'ayant pas ce type de signal peut 
l'obtenir par l'ajout d'une interface de conversion. 
C'est d’ailleurs le cas avec la caméra qui va servir à 
tester le digitaliseur pour cet essai. Il s’agit d'un 
caméscope SONY VIDEO 8 accompagné de son 
interface REFU 8. 


L'autre possibilité de raccordement concerne les 
téléviseurs couleurs ou les magnétoscopes munis 
d'une prise péritel. A ce jour ils en sont pratiquement 
tous équipés et il ne faut trouver que le cordon de 
raccordement péritel vers Cinch (c'est assez facile - 
prix environ 150 F). 


Le raccord de la prise péritel à la prise vidéo in 
permet donc de digitaliser sans forcément être 
possesseur d’une caméra. Dessins animés, logos, voir 
même portrait, le résultat est assez bon. 


Sortie (Vidéo OUT). 


Cette prise est la plus grande innovation du 
constructeur puisqu'elle renvoie sur l'entrée d’un 
magnétoscope ou d'un téléviseur (toujours par la 
péritel) tout ce qui se passe sur l'écran du PCW. 
L'affichage étant simultanés, on peut travailler en 
LOCOSCRIPT en suivant les résultats sur grand 
écran ! Dans ce cas, l’image est noire et blanche et la 
lisibilité est nettement moins bonne de près. 


Dans cette optique de raccordement, le magnétoscope 
peut aussi servir de support à tout ce qui se passe sur 
le PCW. L'imagination peut alors donner son plein. 
Les mieux équipés pourront digitaliser à l'aide d'une 













caméra et se constituer une banque d'images 
digitalisée sur bandes magnétiques plutôt que sur la 
disquette qui reste très vorace en octets (24 Ko par 
écran sauvé). 


L'utilisation de grands titres créés sur PCW à l’aide 
du programme de dessin livré avec l'interface permet 
la réalisation de bancs-titres qui donneront aux films 
amateurs une touche très professionnelle. 


La formation peut aussi être favorisée par l'enregis- 
trement sur cassette vidéo de séquences corres- 
pondant à telle ou telle manipulation à effectuer pour 
l'utilisation d'un logiciel. 


Aspect logiciel 


Comme cela est dit plus haut, l'interface renvoie en 
permanence sur la sortie vidéo ce qui est à l'écran. 
Cette fonction est permanente et ne demande aucun 
logiciel spécifique car il s'agit en fait de la 
récupération par l'interface du signal Vidéo de la 
broche du PCW. Par contre, l'interface doit être 
utilisée conjointement avec le logiciel VIDIFRA pour 
tout l'aspect de la digitalisation et des fonctions 
multiples qu'elle permet. 


VIDIFRA 


Francisé de pied en cap, le logiciel VIDIFRA remplit 
de nombreuses fonctions qui méritent un détour. 


Situées au bas de l'écran, deux lignes, une d'état et 
l'autre de commande, donnent en permanence les 
informations indispensables à l'utilisateur. Le 
déplacement à l'intérieur des menus, ainsi que toutes 
les modifications des paramètres, s'effectuent à l’aide 
des quatre flèches de direction. Haut et bas changent 
‘les valeurs, gauches et droites font passer le curseur 
d'un choix à l'autre. c’est donc très facile. 


Toutes les fonctions sont regroupées autour de sous- 
menus accessibles à partir d'un menu principal. 


La digitalisation proprement dite offre déjà de 
nombreuses particularités regroupées dans le menu 
VIDEO. Le rythme du scanning peut se faire selon 
deux choix : en continu, l’image est digitalisée à une 
vitesse de 3 images/par seconde (écran total) ce qui 
est remarquablement rapide. Un deuxième mode dit 
UN COUP scanne l’image au ryhtme de la volonté de 
l'utilisateur. À chaque pression de la touche ENTER, 
l'image reçue est digitalisée. Il faut noter que le 
digitaliseur intègre sa propre mémoire vive de façon à 
ce que toute image reçue soit immédiatement 
mémorisée sans que la mémoire du PCW n'ait à être 
sollicitée. Cette formule accroît considérablement la 
vitesse de tout le processus. 


Toujours sous le menu VIDEO le programme autorise 
le choix de trois finesses de digitalisation. Ces 
réglages prennent en compte le fait que l'écran du 
PCW soit monochrome et qu'il ne puisse restituer les 
intensités de gris. Pour compenser cette lacune, le 
digitaliseur mémorise les images avec les nuances de 
gris qui pourront être restituées à l’imprimante. Les 
trois niveaux sont : 


Trame 2 / Noir ou blanc sans niveau de gris. Cette 
résolution sert particulièrement pour les images qui 
seront repris par d’autres logiciels comme DTP-PAO, 
NEWSDESK, FLEET STREET, ART, ARTF, etc... 


Trame 4 / Noir, blanc et deux niveaux de gris 
intermédiaires. C'est la meilleure résolution possible 
en mode continu. Le résultat devra être converti en 
trame 2 pour la récupération d'images sur les logiciels 
cités plus haut. 
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Trame 16/ Noir, blanc avec 14 

niveaux de gris intermédiaires. Ce 

niveau correspond à une définition 
exceptionnellement nette à l'im- 
pression, mais impose 16 balayages 
successifs pour arriver à ce résultat. 
C'est donc assez long (environ 20 
secondes) et de plus, l’image doit être 
fixe (paysage ou magnétoscope avec 
arrêt sur l'image). 


MULTI-FENETRAGE 


La gestion d'écran sous le 
contrôle du logiciel 
VIDIFRA, passe par une 
gestion de fenêtres indé- 
pendantes qui ouvrent la 


digitalisation à des applica- Figure 5 


tions de montages d'images La lèse- 
avec des effets de superposition relativement intéressants. majesté 
devient 
Dès lancement le programme désigne l'écran comme possible 
étant la fenêtre active. Un menu FENETRE permet AVC SON 
d'en redéfinir une ou plusieurs nouvelles et dans des PART 


tailles qui restent librement déterminables. La dernière 
fenêtre définie devient la fenêtre active avec les 
avantages que cela implique. C'est la fenêtre active 
dans laquelle l’image scannée apparaît et qui pourra 
être sauvée par la fonction sauve fenêtre. Deux 
absences peuvent prêter à critiques : le programme 
interdit le retour aux fenêtres précédentes si plusieurs 
sont définies simultannément et cela impose de 
recréer la fenêtre si l’on tient à la rendre active de 
nouveau. Autre grief, la fenêtre ne réduit pas l’image 
à sa proportion mais scanne la partie de l'image à 
l'endroit où elle se trouve. En conclusion, si la 
fenêtre est trop petite on a bien du mal à coincer 
l'objet que l'on veut y mettre (dans le cas du image 
mouvante surtout). 


Par contre, rien n'interdit que la totalité 
de l'écran soit sauvegardée 
pour être 
rechargé 
réduit de 
moitié pour 
arriver SUC- 
cessivement 
à donner la 
taille d'une 
petite fenêtre 
à un écran 
complet. 





igure 4 
rigure 4 


Mona 
digitalisée 
en trame 
Je résultat 
est a55€Z 
conven- 
tionnel 
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A ce stade on aborde alors l’option fichier avec de 
nouvelles fonctionnalités propices à une créativité 
débridée… 


LES FICHIERS 


Respectant le principe de l'écran et de la fenêtre, 
l'option FICHIER donne place à un menu spécifique. 
On peut donc choisir de sauver la totalité de l'écran 
ainsi que tous les paramétrages effectués dans l'option 
VIDEO (contraste, luminosité, trame, etc...) ou 
simplement la dernière fenêtre active. Du fait du type 
de sauvegarde que la digitalisation impose (en binaire) 
la consommation en espace disque n’est pas 
négligeable. Un écran consommant 24 Ko, on aura 
plutôt recours à la sauvegarde de fenêtres toujours 
moins goulues en octets. 


Cette remarque est confirmée par le fait que le 
programme prévoit l'affectation d’un lecteur C, 
généralement attribué au disque dur, comme lecteur 
actif. 


Le chargement propose la récupération d’une image 
quelconque suivant 3 formats. Réduite de moitié, 
identique ou agrandie deux fois. Le programme refuse 
toutefois d'augmenter la taille si l’image doublée est 
plus grande que l'écran. C’est logique mais génant si 
l’on veut agrandir une portion d'image. Dans ce cas 
on a recours à un subterfuge qui consiste à recréer 
une fenêtre plus petite, à la sauver et à la récupérer 
réduite. 


Enfin les derniers luxes de la récupération d'images 
permettent de positionner la fenêtre en tout point de 
l'écran pour un positionnement libre, mais surtout, 
l'affichage de l’image rechargée peut suivre plusieurs 
type d’incrustations : 

complément à l’image déjà affichée (effet de fusion, 
saisissant !) ou superposition (effacement de 
l'ancienne image à l'endroit où se met la nouvelle). 
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OPTIONS DIVERSES 


Quelques options supplémentaires ajoutent des 
fonctionnalités qui se distinguent par le confort 
qu’elles apportent dans certaines circonstances 
propres à l’utilisation que chacun peut faire d’une 
telle interface. 


L'éditeur de pixels permet de retoucher point par 
point l’image affichée. Outre la retouche: d'image, 
l'éditeur permet d’ajouter, à main levée, dessins ou 
marques particulières (frises, cadres, filets, etc...). Ses 
performances sont réduites au strict minimum. Donc 
aucune fonction particulière, autre qu’allumer ou 
éteindre un pixel et déplacer le zoom sur tout l'écran 
avec une grande facilité. 


L'éditeur de texte est prévu pour ajouter du texte en 
n'importe quel endroit de l’écran et selon 3 modes 
d’incrustation : complément (fusion avec l’image), 
inversion (texte noir sur matrice claire) et normal 
(disparition de la portion d'image que le texte 
occupe). Les applications de cet éditeur sont 
multiples. Sauvegardées dans leur taille et agrandies, 
les lettres peuvent avoir la taille de l'écran. C'est 
excellent pour les bancs-titres, les présentations ou la 
personnalisation de fichiers sur K7 vidéo. En tenant 
compte du fait que le programme est accompagné 
d’un utilitaire très bien fait de boucle tournante 
entièrement paramétrable (durée et choix des images 
affichées en boucle) on imagine aisémement quelques 
application utiles. 


Les convertisseurs : au nombre de trois, ils se 
chargent de convertir ses propres fichiers dans 
différents formats acceptables par la grande majorité 
des logiciels faisant du graphisme. Après essai, la 
compatibilité s'avère totale et ce aussi bien avec la 
gamme ELECTRIC STUDIO que DTP-PAO, 
EXBASIC, GRAPHIC MAGIC, FLEET STREET 
PUBLISHER tous ceux qui sont compatibles avec les 
programmes venant d’être énoncés. 


CONCLUSION 


L'interface VIDI MX-990 est indéniablement très 
performante. Rapidité, facilité d'utilisation agrémentée 
de pages d'aides adaptées à chaque fonction plus un 
luxe de petits détails qui transforment un simple 
digitaliseur en outil de créativité, font que ce matériel 
dont on pourrait se méfier de l’aspect gadget 
s'arrange pour devenir utile et dans certains cas 
indispensable (les amateurs de vidéo ne contrediront 
pas cette idée...). Mention d'excellence pour la sortie 
VIDEO qui ouvre une sérieuse brèche dans la voie de 
l'usage de l'outil vidéo au service du PCW et un petit 
regret pour la trop grande rigueur des options qui 
oblige à biaiser pour arriver à ce que l’on veut. Enfin 
l'important est d’abord d'y arriver et ce digitaliseur 
VIDI est un très bon allié. 


FICHE TECHNIQUE 


TYPE : INTERFACE DE DIGITALISATION MX-990 
EDITEUR : ROMBO PRODUCT 

AUTEUR : MARCUS SHARP 
IMPORTATEUR/TRADUCTEUR : LOGI'STICK 
DISTRIBUTEUR : DDI 

PRIX PUBLIC : 1400 F TTC 








| Les disquettes thématiques de l’Echo reprennent tous les 
1 À programmes depuis le numéro 1. Bénéficiant des dernières 
améliorations chaque disquette est livrée avec son manuel. 


GESCALC GESTION DE POKER FOLIES 
INVESTISSEMENT STOCK AGENDA 
PATRIMOINE ATHEMYS MUSIC MACHINE 
BUSINESS SUPER GRAPHE MATHELEM 
PERT EVALUATION LOTO 
DEMO : AZERTY T.AO. . OTHELLO 
DEMO : TASWORD DEMO : AZERTY 
Æ max ETIQUETTES DBASE ee AUTO- GSX.BAS 
AREA ES MULTIPLA.KEY UTLITARE 1 PROGRAMMATION ae: GSXDAO 
= STANDARD KEY GAG ET SETKEYS T.A.O. 
DBASE.KEY PRINTER MAKER LES PLUS D'EXBASIC 
PROG1.CMD, PROG.CMD MONITEUR DE DISC SUPER GRAPHE 
MENU.CMD MATRIX DEMO : GRAPHIC 
DEMO : AZERTY LOCASC2 MAGIC 





TABLEAUX ASCII 
DEMO : GRAPHIC 
MAGIC 


Disponible chez votre revendeur habituel, vous pouvez aussi vous les procurer par correspondance 
à LOGI STICK CAPN Le Bonaparte - Boîte 49 - 93153 LE BLANC MESNIL Cédex 


Re En er ee ec tt fe nf sn ne ue re ee ne >< 2 

















Mme. Melle. M. - Nom : Prénom : 

Adresse : Code Postal : 
Commande par la présente les références suivantes : | 24h dl | | 
au prix unitaire de 100*F TTC ou de 500*F pour les six références 

réglé par L] CHEQUE [] MANDAT [] ccP Signature : 


{(*) : FRANCE FRANCO DE PORT ET D'EMBALLAGE 
ETRANGER OÙ DOM-TOM AJOUTER 7 F PAR DISQUETTE 


\'1011-744010 RAI 


Notez chacun des articles que vous avez lu et retournez ce questionnaire à 
L'ECHO. Chaque mois, l’auteur dont l’article a obtenu la meilleure moyenne 
se verra attribuer une prime de 1000 F et le lecteur tiré au sort recevra un 
magnifique cadeau-surprise. 























ARTICLE PAGE PASLU TRES MAUVAIS MAUVAIS MOYEN BON TRES BON NOTES 














































































































INITIATION A DBASE (10) 5 E C C [ :::: /20 

LOGOTRAM 10 ( 3 C C C He :%:::920 

INTRODUCTION A LA PAO 17 x O 0 le 32487020 

ESSAI DE DTP-PAO 19 O Q 0 CO .. /20 

ESSAI MX-990 VIDI 24 O Q CO 1 1 El 3:20 

PROGRAMME QUIZZ 31 C 7 O O AE 3 £%720 

INITIATION AU BASIC (1) 30 CO Œ D Œiu 4::1/20 NOTEZ BIEN 
ESSAI DU LOGICIEL ASTRO 40 O C 0 CO no .../20 NOTEZ MAL 
PROGRAMME INVEST + 43 0 : C TA. 20 MAIS 
VERIFICATEUR BASIC 50 C J O C C [ .… /20 

INITIATION A CP/M (2) 53 0 S Q 0 CO Fi; e a 120 VOTEZ 
Nom : Prénom : Age : 

Adresse : 

Code postal : __ Ville Profession 
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ARRETER LE 
TAPAGE NOCTURNE 


Reposez-vous, offrez à votre PCW les 
disquettes de l’Echo du PCW. Saisis 
avec amour et testés avec passion, les 
programmes qui les composent sont 

ceux du numéro correspondant. 
Alors contre l’usure prématurée du 
clavier... une seule solution : 
Commandez-les ! 





ATTENTION DESORDRE... 


Le numéro d'Avril est introuvable ? Celui de 
Juin froissé ? Comment pouvez-vous supportez cela ? 
Vous ne pouvez plus, alors d’Echo vous le dit... C’est la reliure qu'il vous 
faut ! Prévue pour classer une année complète soit onze numéros, elle 
garantis la longévité de votre collection et vous fera gagner un précieux 
temps en recherche et en classement... 


LE CHAINON MANQUANT... 


L'Echo du PCW est le mensuel des PCWistes et depuis son premier numéro 
de nombreux sujets essentiels ont été abordés. L'information qui vous 
manque est probablement dans l’un d’entre eux. Alors ne cherchez plus 
vainement et complétez, sans attendre votre collection avec les sommaires 
des anciens numéros (N°1, 2, 3 et G sont au bord de l’épuisement...) 





Prénom : 





Ville : ____ Code Postal 





Commande par la présente : 


ABONNEMENT D'UNE ANNEE À COMPTER DU NUMERO 13 (11 numéros) SOIT …… x 290 (France) ÉDsine, F 
ABONNEMENT D'UNE ANNEE A COMPTER DU NUMERO 13 (11 numéros) SOIT …… x 450 (Etranger et Dom-Tom) = ........ F 
DISQUETTES ECHO N° [1] La] Es] [es] Le] SOIT …. x 80 (France) as F 
DISQUETTES ECHO N° [4] (] Te] Le] Go] E1] [re] SOIT …. x 95 (Etranger et Dom-Tom) = ....... F 
ABONNEMENTS DISQUETTES* À COMPTER DU NUMERO 13 (11 numéros) SOIT …… x 690 (France) he F 
ABONNEMENTS DISQUETTES* À COMPTER DU NUMERO 13 (11 numéros) SOIT …… x 900 (Etranger et Dom-Tom) = ....... F 
ANCIENS NUMEROS : [a] [s] [s] [sJho] F1] SOIT... x 30 (France) Re F 
ANCIENS NUMEROS : [1] [a] Cs] [e] Le] SOIT …… x 40 (Etranger et Dom-Tom) = ........ F 
RELIURE ECHO DU PCW POUR 11 numéros SOIT …… x 80 (France) See F 
RELIURE ECHO DU PCW POUR 11 numéros SOI 25 x 95 (Etranger et Dom-Tom) = ........ F 


(Entourez les numéros choisis) 
Soit un total de 


TOUS CES PRIX SONT k ". * 
D ee C1 cHEQUE* [] mManpar* [1] ccp SIGNATURE 


PORT ET L'EMBALLAGE  * Libellez vos règlements à l’ordre de LOGI'STICK Edition (obligatoire) 


À RETOURNER A L'ECHO DU PCW - LOGI'STICK Edition 
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SPECIAL 
LIGHT PEN 


BCOMMENT CHOISIR 
SA COMPTA {1} 
MLES CONFIDENCES DE 
LOCOSCRIPT 
M BASIC : GSX - UN DEPART 
SAISISSANT 
M PROGRAMME : POKER FOLIES 
M REPORTAGE: AMSTRAD SHOW 
MESSAIS : LIGHT PEN - 3D CLOCK CHESS 


N 


BIORYTHMES - LIVRE JETSAM - AZERTY 


= Tous les programmes du numéro 1 sont sur la disquette 1 


+ 


7 © 
» 4 LS 
Q 
& M BASE : INITIATION (11) 


A 







Une démonstration gratuite d'AZERTY 


SPECIAL 
DBASE 


LES LIVRES DE DBASE 
LES TRUCS DE DBASE 
M DES CADEAUX POUR PCW 
M TRANSFORMER UN PCW 
EN SERVEUR MINITEL 
LES CONFIDENCES DE LOCOSCRIPT 
M PROGRAMME : MATRIX - PATRIMOINE 


BESSAIS : TASWORD 8000 - MEDIACOMPTA 
MX330 - CLEF POUR PCW 


Tous les programmes du numéro 4 
sont sur la disquette 4 


À SPECIAL 


COMPTA 


M ESSAI : MAILING 
M DBASEI : LES LIVRES 
INITIATION (V) 

MB COMMENT CHOISIR SA 
COMPTABILITE (IV) 
BB L'EVASION TELEMATIQUE 
M DELUGE ASCII (11) 

LES CONFIDENCES DE LOCOSCRIPT 

BLES BONS PLANS DE MULTIPLAN 


BB PROGRAMMES : PRINTER MAKER 3 - UNE COMPTA 


: 





Tous les programmes du numéro 7 sont sur la 
disquette 7 + Une démonstration gratuite de 
TASWORD 8000 


SPECIAL 
TELECOM- 
MUNICATION 
MB DBASEI : 
INITIATION (VIII) 
3 COMMUNICATION : 
L'UNIVERS TELEMATIQUE - LES 
LIVRES - RS232 
M L'EVASION TELEMATIQUE 
M DIVERS: DECOUPE BANDES - PCW VECU 
M CP/M: TOUT SUR LE CLAVIER 
M PROGRAMMES: PERT - RS/MAKER - OTHELLO 
ESSAIS: MODEM OLITEC - CALVACOM - MAIL232 


Tous les programmes du numéro 10 
sont sur la disquette 10 






SPECIAL 
IMPRIMANTE 













BBASIC: AUTOPRO- 
GRAMMATION - DISQUETTE 
DE TRAVAIL 
M COMMENT CHOISIR SA 
COMPTABILITÉ {11} 
LES CONFIDENCES DE LOCOSCRIPT 
BB LANGAGE MACHINE INITIATION (l) 
B DOSSIER : L'IMPRIMANTE 
M PROGRAMME: PRINTER MAKER - EVALUATION 
MESSAIS : MULTIPLAN - LE GRAND LIVRE DU PCW 
= PROGRAMMATION SUR PCW 


Tous les programmes du numéro 2 sont sur la 
disquette 2 + Une démonstration gratuite d'AZERTY 









SPECIAL 
MUSIQUE 
















B DBASEI : 

INITIATION (111) 

M CP/M : SETLST 

M TELEMATIQUE : L'EMULATION 

MINITEL 

BLES CONFIDENCES DE LOCOSCRIPT 
M PROGRAMME : MUSIC MACHINE 
BUSINESS 

M ESSAI : COMPAGNON - MX550 - STRIKE FORCE 

HARRIER - PCW10 


Tous les programmes du numéro 5 
sont sur la disquette 5 


V 


= SPECIAL 
SOMMAIRE 
M ESSAI : MEMENTO 
BILAN PLUS 
M DBASEI : INITIATION (VI) 


M CP/M : TOUS LES LIVRES 
M ANCIENS SOMMAIRES 
THEMATIQUES 
MB L'EVASION TELEMATIQUE 
LES CONFIDENCES DE LOCOSCRIPT 
M DELUGE ASCII (111) : MULTIPLAN 
M PROGRAMMES : GESCALC 






L 






Tous les programmes du numéro 8 sont sur la dis- 
quette 8 + Un programme inédit et gratuit ! 





SPECIAL 
PROGRAMMES 








77 






MESSAI : TURBO 







/ EXPERT BASE 
/ M DBASE || : INITIATION (IX) 
M L'EVASION TELEMATIQUE 
BB DEMARRER EN CP/M 










M LOCOSCRIPT LE SECRET DES PAGES 
INITIATION A L'INTELLIGENCE 
ARTIFICIELLE 

1 PROGRAMMES : MONITEUR DE DISC, LOGOGRAF 
LOTO, STICKER-MAKER, T.A.O. 


) 


Tous les programmes du numéro 11 
sont sur la disquette 11 


29 









SPECIAL 
ECRAN 
















BASIC : 
COMPATIBILITE CPC/PCW 
M DBASEI : INITIATION {|} 
M COMMENT CHOISIR SA 
COMPTABILITE {Ill} 
BLES CONFIDENCES DE LOCOSCRIPT 
M LANGAGE MACHINE INITIATION {11} 
M DOSSIER : L'ECRAN 
M PROGRAMME : INVESTISSEMENT - AGENDA 
BESSAIS : LA SOURIS - TOMAHAWXK - ROTATE 
“ EXBASIC ET LES LIVRES DE MULTIPLAN 




























Tous les programmes du numéro 3 
sont sur la disquette 3 











SPECIAL 
PLUS 



















BESSAI : SPOOL 
BOBASE |! : LES PLUS 
INITIATION (IV) 
BCP/M: LES PLUS - DELUGE 
ASCII {1} 
M LOCOSCRIPT: LES CONFIDENCES 
LES PLUS 
M REPORTAGE: AMSTRAD SHOW 
BB L'EVASION TELEMATIQUE 
1 PROGRAMMES: GESTION DE STOCK - DAO ET GSX 


: 





























Tous les programmes du numéro 6 sont sur la 
disquette 6 + Une démonstration gratuite de 
TASWORD 8000 







SPECIAL 
JEUX 









M DBASEI : 
INITIATION (VII) 
MLES AVEUX DE MME 
LACAILLE (1) 
LIVRE : FICHIER SUR AMSTRAD 
M DELUGE ASCII (IV): RPED 
LES CONFIDENCES DE LOCOSCRIPT 

M L'EVASION TELEMATIQUE 
M PROGRAMMES : MATHELEM 
M ESSAI: GRAPHIC MAGIC - JOYSTICK 


: 

































Tous les programmes du numéro 9 sont sur la 
disquette 9 + Une démonstration gratuite de 
GRAPHIC MAGIC 
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{ 
gif 


PCW 





l'écho 


ENFIN UN CLUB |! 


POUR TOUS LES PASSIONNES - Un tableur qui est en train de révolutionner 
QUI VEULENT TIRER LE MAXIMUM l'Angleterre est offert par MML aux adhé- 
DE LEUR MACHINE rents du club (valeur 450 F) 

Démarrant ses activités le 1° Décembre - La liste des revendeurs « club » de toute la 
1986, le CLUB ECHO DU PCW sera l'indis- France chez qui vous obtiendrez les meilleu- 
pensable complément du magazine. res remises. 


Les remises accordées par les revendeurs | 
« club » ainsi que les logiciels donnés par le TOUTE L'ANNEE 


club doivent permettrent d'amortir très rapi- . À 
Â _ NA - lièr lletin 
dement le coût de l'inscription. Vous recevrez régulièrement votre bulle 


de liaison. 
Un bulletin mensuel servira de liaison entre - Vous pourrez participer aux stages organi- 
les adhérents et comprendra toutes les infor- sés par l'Echo du PCW selon des conditions 
mations à caractère urgent (nouveauté, expo- très avantageuses. 


sition) mais aussi l'adresse des revendeurs 
« Club » mise à jour, des programmes inédits, 
des trucs et astuces impubliables (par rapport 
à la quantité} ainsi que des informations 


- Vous pourrez utiliser et consulter en toute 
liberté votre boîte aux lettres personnelle sur 
le serveur de l'Echo. 


techniques. - Etre invité personnellement à toutes les réu- 
nions ou exposition organisées par l'Echo du 

PCW. 
CE QUE VOUS OFFRE LE CLUB Pour faire partie des privilégiés du PCW, 


n'attendez-pas, inscrivez-vous pour une 
année au CLUB DE L'ECHO DU PCW et 
retourner le bon ci-dessous à : 


Dès réception de votre inscription, nous vous 
ferons parvenir 





























- Votre carte personnelle d'adhérent CLUB ECHO DU PCW, LOGI'STICK Edition 
- Votre code d'accès à votre boîte aux lettres CAPN Le Bonaparte, Boîte 49 

personnelle sur le serveur ECHO 93153 Le Blanc Mesnil Cédex 
J'adhère pour une année à compter du / / au club de l'ECHO DU PCW 
NOM : PRENOM ;: AGE : 
ADRESSE : 

VILLE : CODE POSTAL : 

TEL. : PROFESSION : 
Tarif pour une année : France 350 F - Etranger 495 F Signature obligatoire : 


Etudiants et chômeurs : France 290 F - Etranger, DOM-TOM 390 F 
(Accompagnez votre inscription du justificatif) 


Règlement par CO Chèque ou (5 Mandat à L'ECHO DU PCW 
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PROGRAMME BASIC 











NIVEAU DEBUTANT 





Le programme est relativement court et se 
charge de gérer des questionnaires 
différents que chacun peut créer au gré des 
circonstances. D’un minimum de 10 
questions, chaque questionnaire en accepte 
jusqu’à 100 et plusieurs types de 
questionnaires peuvent se trouver sur la 
même disquette. 


Chaque questionnaire porte un nom qui 
l’identifie sur la disquette. Lors de la 
création, les questions sont entrées en 
compagnie de 2 ou 3 réponses possibles 
dont une seule est juste. Une fois terminé, 
le questionnaire est irrémédiablement 
sauvegardé sur disquette pour être utilisable 
à tout moment. 


Saisie 

Entièrement en Basic Mallard, ce 
programme, numéroté de 10 en 10, sera 
saisie rapidement. Les nouveaux venus au 
Basic peuvent se reporter à l’annexe ‘‘saisie 
d'un programme basic’’ située en page 56. 
Notez que les codes situés en fin de ligne ne 
sont pas à saisir puisqu'ils sont générés 
automatiquement par le vérificateur B12 
dont vous trouverez tous les détails dans ce 
présent numéro. 


Lancement 

Bien vérifié, le programme est d'abord 
sauvé sur disquette (sage précaution) et 
lancé par un RUN souple mais ferme. 


Le menu général s'affiche pour proposer les 
indispensables fonctions du logiciel. Chaque 
fonction devient opérante à la pression du 
numéro qui lui correspond et offre des 
fonctionnalités que nous allons maintenant 
détailler. 


1. Créer 


Pour utiliser 
un 


ne 4 questionnaire 
UE CIE vous devez 
scie préalablement 


le créer en 
choisissant le 
nombre de 
questions 
qu'il 
contiendra. 





SUPER QUIZZ 


QUAND LA MACHINE DEVIENT 
LE MAÎTRE... 


Comment faire participer notre tendre 
progéniture aux activités informatiques sans 
risquer de les rebuter par l’apparente 
complexité de nos applications habituelles ? 


Par Pierre ILLOUZ 


Mieux, pouvons-nous profiter de cette fidèle 
machine pour augmenter, l'air de rien, leur 
culture générale et pourquoi pas, la leçon 
imbuvable qu'ils se sont mis en tête de ne pas 
apprendre ? 


Problème épineux reconnaîtrez-vous. Pourtant, 
le PCW peut encore nous sortir d'affaire. 
Professeurs, éducateur ou simplement parents, 
voici QUIZZ qui subtilement gavé de joyeux 
questionnaires deviendra vite 1e programme 
favori des élèves les plus rebelles. 








Tapez la question puis (RETURN) : PCN veut dire 


ALES 4 : à À Pers core a 
nse n° : Personna er Nordprocessor 
ÉFLEEAES n° : Papa ER Te ly ' 





Laquelle est la bonne (1,8 ou 3) ? 


QUESTION 
Les questions sont alors saisies avec 


deux ou trois réponses possibles dont 

une seule est, théoriquement, juste. Il faut 
faire preuve d’un peu d'imagination pour 
que les réponses fausses ne soient pas trop 
grotesques par rapport à celle qui est juste. 
C’est là tout le travail à fournir ! 


Quand toutes les questions sont 

entrées, le fichier est alors sauvé sur la 
disquette du lecteur actif sous le nom que 
vous lui avez donné. L'extension QUI est 
automatiquement ajoutée par le programme. 


Exemple : Le questionnaire GEO1 est sauvé 
sous le nom GEO1.QUI. 
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PROGRAMME BASIC 


2. Modifier 
Décidément, c'est trop facile et vous 

décidez de modifier certaines réponses du 
questionnaire. Vous entrez alors le numéro 
de la question et les 
nouvelles réponses. 


RYESTID 1 Lie /) 








ANCIEN CONTENU : 

Question : L'abréviation BASIC signifie 

Réponse 1. Band and systen informatique control 
Réponse 2, paie all purpose syabolic instruction code 
Réponse 3. BASIC n'est pas une abréviation ! 


Bonne réponse : £ 





NOUVEAU CONTENU : ({EXIT) pour annuler) 


3. Directory 


Nous avons vu plus haut que chaque 
questionnaire était sauvé avec l'extension 
QUI. Donc le programme peut différencier 
les fichiers et n'afficher que ceux 
concernant le QUIZZ en laissant de côté 
tout autre fichier (programmes 
par exemple). : 





QUIZZs disponibles sur cette disquette : 





INFO QUI 





4. Help 


Vous avez un doute sur la fonction 2 ? Pas 
de problème help affiche le 
récapitulatif et vous êtes sauvé ! 


are 





Un QUIZZ est un questionnaire sur un thène donné, 


Chaque question se présente sous la forae : 
1 question et 3 réponses possibles, 


À vous de donner la bonne ! 


Le nenu principal vous donne la possibilité de : 


- créer un nouveau questionnaire (1) 
- de nodifier un questionnaire existant (2) 


- de consulter les dift ei questionnaires d'une disquette (3) 
- de consulter les règles (4) ! 
- d'effacer um pepe de la disquette (5) 


- et enfin de répondre à un questionnaire (6) 


fppuyer sur (EXIT) pour revenir au nenu 











5. Effacer 


Cruelle déception, le questionnaire laisse 
froid et plutôt qu'insister lourdement, vous 
préférez le détruire à jamais et jeter dans 
l'infini le souvenir cuisant d’un échec 
passager. Destruction irrémédiable du 
questionnaire fautif ! 


6. Jouer 
Probablement l'option préférée de vos 
admirateurs, elle leur donnera accès à la 
sournoiserie de vos réponses et les jugera 
sans pitié sur leur réussite. Cette option ne 
peut s’obtenir que si un questionnaire existe 
déjà (option 1). Les heureux bénéficiaires 
de la disquette Echo 12 pourront d’ailleurs 
tester leur connaissance Micro-informatique 
avec un Quizz tout spécialement élaboré 

à leur attention... 


KUYUESILUN n : 





L'abréviation ASCII signifie 
1. American standard code for inforsation interchange 


è , American synthetic code informatique identification 
3, ASCII n'est pas une abréviation ! 


Votre réponse (1,2 ou 3) ° Œ 





[EXIT] - Quitter 


Les jeux sont faits, tout le monde s'est bien 
cultivé et il est grand temps de se séparer 
de Quizz pour allez se coucher. C'est la 
touche qu'il faut presser. 

Ce que je fais 
maintenant en 
espérant que ce 
Quizz inspirera bien 
d'autres 
applications 
pédagogiques dont 
le PCW manque 
cruellement. 


GOOD BYE 
signifie : 
1/ Bonne nuit 


2/ Au revoir 
3/ A bientôt 


Votre réponse 
SVP... 
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10 CHENE" UNS 
‘* à 


20 65) 
30 ‘À QUI22 x' <HT) 
40 "* par 4" <CD 
50 'X Pierre ILLOUZ x! <W6) 
60 ‘# L'ECHO DU PCW 87  X' «<V9} 


70 ‘# X' <6A) 

80 CAÉRRPEREREROOEEREEREREERE" (5) 

90 CLEAR'esc$=CHR$(27):cls$=esc$+"E"+esc$+"H" bip$=CHR$(7)' K 

1) 

100 invé=esc$+"p"inot$#=esc$+"q"' <D2) 

110 soul$=esc$+"r"insoul$#=esc$+"u"" <K5) 

120 DEF FN fen$(X)=esc$+"X"+CHR$(X+32)+CHR$(32)+CHR$(57-X)+CHR 

$C121):fen1$=FN fen$(0)+cls$' <T9» 

130 DEF FN tet$(tit$)=STRINGSC(88-LEN(titS))/2," ")+tit$' CE2) 

140 net$=escé+t"o"" (PM) 

150 fen2$=esc$+"A"+CHRS(S8)+CHRS(32)+CHR$(35)+CHRS(121)+c1s$" 

{19 

160 fen0$=esc$+"X"+CHRS(32)+CHR$(32)+CHR$CG2)+CHRSC121)+c1s$" 

{IA 

170 DEF FN visu$(x,y,z$)=esc$+"Y"+CHR$(32+y)+CHR$(32+x)+z$" (I 

E) 

180 DEF FN locate$(x y)=esc$+"V"+CHR$(32+y)+CHR$(32+x)' (C5) 

190 DEF FN lig$(x)=esc$+"Y"4CHR$(x+32)+CHR$(32)+esc$+"l"" <C6) 

200 PRINT esc$+"Q"' <QL) 

210 cadre0$=CHR$(134)+STRING$(30,138)+CHR$(140)' <01) 

220 cadre1$=CHR$(133)+SPACES(30)+CHR$(133)' <RL) 

230 cadre2$=CHR#(131 )+STRINGS(30,138)+CHR$(137)' <08) 

240 DEF FN cadre$(a$)=inv$+FN locate$((80-LEN(a$))/2,0)+CHR$(1 

34)+STRINGS(LEN(A$)+6,138)+CHR$(140)+FN locate$((80-LEN(a$) )/2 

DCHRS(133)+" lat" "HCHR$(133)+FN locate$((80-LEN(a$ )) 

12,2)HCHR$CT3T)+STRINGS(LEN(AS)+6,138)+CHR$(137)+nor$' <RY) 

250 PRINT cls$' <MI) 

260 PRINT FN cadre$("Q U I 2 2")' «9W) 

270 PRINT inv$:FN locate$(27,1l)cadre0$:FN locate$(27,12)cadre 

I$:FN visu$(27,13,CHR$(133)+" VOTRE CHOIX ? "4C 

HR$C133)) FN locate$(27,14)cadrel$:FN visu$(27,15,CHR$(133)+" 
l, Créer "4CHR$(133))' <77) 

280 PRINT FN visu$(27,16,CHR$(133)+" 2, Modifier 
"4CHR$C133)) FN visu$(27,17,CHR$(133)+" 3, Directory 

"HCHR$(133)):FN visu$(27,18,CHR$(133)+" 4, Help 
"+CHR$(133))" <NO> 


290 PRINT FN visu$(27,19,CHRSC133)+" 5, Effacer 
VCHRS(139))" CFY) 
300 PRINT FN locates(27,20):CHR8(133):" 6, Jouer 


F4CHRSCT33D FN locate$(27,21)'cadrel$:PRINT FN locates( 
27,22):CHR$(133):" {EXIT)' Fin MiCHR$(133):FN 
visu$(27,23 cadrel$):FN visu$(27,24 cadre2$):nor$' <LK) 
310 choix$="1cC2Mm3Dd4HhSEe6Jj"+CHR$(27) PRINT FN locate$(0, 29 
D'x$=INPUTS(1):x=INSTR(choix$ ,x$)'IF x=0 THEN PRINT bips: :G0T 
0 310' <2U» 
320 x=(x+1)/3 MOD 7:IF x=0 THEN x=7' (F5) 
330 ON x GOSUB 370,580,780,900,1050,1110,350' <PF) 
340 RUN' <B0) 
350 'fin' <B6) 
360 PRINT cls$rescé'"e":END' <8B) 
370 'créer' <FM) 
380 PRINT cls$:PRINT FN cadref("'CREATION 
12 2") ' <H2) 
390 w=8:nes$="Non du QU122 (8 lettres max.) ? ":GOSUB 1410:IF 
xx=27 THEN RETURN' <J2) 
400 non$=UPPERS(LEFT$(x$ ,8)):non$=non$+SPACES(8-LEN(non$ ) )+",Q 
UI"" <2Y) 
410 PRINT cls$+FN cadre$(non$)'" <C9) 
420 w=8'nes$="Auteur : ? ":G0OSUB 1410:auteur$=x$" <SE) 


D'UN QU 


430 w=10:mes$="Thème (Math, Histoire, Géo,,,) ? ":GOSUB 141011 

atiere$=x$" {7J) 

440 w=12:nes$="Nonbre de question (10 à 100) ? ":GDSUB 1410' « 

FU? 

450 FOR i=1 TO LENCx$):IF INSTR("1234567890" MIDS(x$,i,1))=0 T 

HEN PRINT net$:bip$::GOTO 440' €V6} 

460 NEXT i:x=VAL(x$):IF x<10 DR x>100 THEN PRINT net$:bip$: 60 

T0 440' <1@) 

470 n=x!DIM qg$(n),r$(n,3),br(n)' <B9) 

480 FOR i=1 TO n' €MJ) 

490 PRINT c1s$+FN cadre$("QUESTION n°"+STR$(i))' <61) 

500 w=8:mes$="Tapez la question puis RETURN» : "'GOSUB 1410: 

$Ci)=x$" €5x) 

510 IF xx=27 THEN 560" (UD) 

520 FOR j=1 T0 3:mes$="Réponse n° "+STR$#(j)+" : 
14101r$C1,j)2x$:NEXT j' <NO) 

530 w=19mes$="Laquelle est la bonne (1,2 ou 3) ? ":GOSUB 1410 
1IF LENCX#3O1 OR INSTR("123",x$)=0 THEN PRINT net$:bip$: GOT 
530' <1G) 

540 brii)=VAL(x$)' <QC) 

560 NEXT i' <F6) 

560 GOSUB 1550! <KM) 

570 RETURN' (HD) 

580 'Modifier' <LW) 

590 PRINT c1s$+FN cadre$("Q U I 2 2")! €1J) 

600 mes$="Non du fichier à modifier : ":w=8:GOSUB 1410 :nom$=UP 

PERS(LEFTS(x$,8)):non$=nom$+SPACES(8-LEN( nom$))+" QUI" :IF xxz2 

7 THEN RETURN' (83) 

619 IF FIND$(non$)="" THEN PRINT :PRINT'PRINT "Le fichier "in 

on$:" n'est pas sur cette disquette l"::GOSUB 880 :RETURN' <EW 
) 

620 GOSUB 1510' <KF) 

630 PRINT cis$+FN cadre$(non$):PRINT'PRINT FN tet$("Tapez <EXI 

1) pour finir")! NW 

640 v=8'nes$="Quelle question voulez-vous modifier ? "'GOSUB | 

410 <AN) 

650 IF xx=27 THEN GOSUB ISSO:RETURN' <LG? 

660 k=VAL(x$)' <K4) 

670 PRINT cis$+FN cadre$("Q UE S TION  n'"+STR$(k))' <6K) 

680 PRINT FN 1ig$(4)'STRING#(88,138):PRINT' <KM) 

690 PRINT "ANCIEN CONTENU :":PRINT:PRINT "Question : ":9$(k)' 
{TG} 

700 PRINT:FOR j=1 TO 3:PRINT "Réponse "'j:", 
{NC} 

710 PRINT :PRINT "Bonne réponse :":brik)' <UR) 

720 PRINT FN 1ig$(17):STRING$(88,138):PRINT' €YK) 

730 PRINT "NOUVEAU CONTENU : (<EXIT> pour annuler)":PRINT' €R 

(2) 

740 w=221mes$=" Question : ":GDSUB 1410:IF xx=27 THEN 770 ELSE 

g$(k)=x$" €1K) 

750 FOR j=1 TO 3:w=24+j'nes$="Réponse "+STR$(j)+", 
1O:r$Ck, j)=X$ NEXT j' £Iu) 

760 PRINT FN 11g$(29):"Bonne réponse : ? "::x$=[INPUTS(1):x=ASC 
(x$)-48:IF x<1 OR x)3 THEN PRINT bip$:net$::G0TO 760 ELSE brik 
}=x' <NM) 

770 6070 630' <HC} 

780 'directory' <OR) 

790 PRINT cls$' <MR) 

800 PRINT FN cadre$("D IRECTORY")}' HI» 

810 PRINT'PRINT:PRINT:PRINT' <H7) 

820 PRINT "QUIZZs disponibles sur cette disquette :":PRINT' €X 
D 

830 PRINT STRING$(86,"_"):PRINT' <H4) 

840 IF FINDS("X,QUI")="" THEN PRINT "Pas de Quizz sur cette di 

squette":GOTO 870' <KM) 


“iys13+j :GOSUB 


ir$Ck,j)iNEXT' 


":GOSUB 14 


————““ 
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860 DIR #,QUI' <JN} 

860 PRINT' FF} É 

870 PRINT STRING$(86,"_"):PRINT' <H8) 

880 PRINT FN locate$(0,29)::PRINT FN tat$(" Appuyer sur <EXIT) 
pour revenir au menu "}' €XT) 

890 x$=INPUTS(1T):IF ASC(x$)<327 THEN PRINT bip$::G0T0 880 ELSE 
RETURN' <5E) 

300 'explications' <{UR) 

910 PRINT c1s$+FN cadre$("H E L P")' F1} 

920 PRINT FN 1ig$(5):PRINT FN tet$("Un QUIZZ est un questionna 
ire sur un thème donné, "}'PRINT:PRINT FN tet$("Chaque question 
se présente sous la forme :")' <CG) 

930 PRINT FN tet$("1 question et 3 réponses possibles ,"):PRINT 
(PRINT FN tet$("A vous de donner La bonne !")' <XA) 

940 PRINT:PRINT :PRINT:PRINT "Le menu principal vous donne la 

possibilité de :"' £UR) 

950 PRINT ‘ (FF) 

960 PRINT TAB(S)"- créer un nouveau questionnaire (1)"' <HM) 

970 PRINT TAB(S)"- de modifier un questionnaire existant (2)"! 
{TS) 

980 PRINT TAB(S)"- de consulter les différents questionnaires 

d'une disquette (3)"! €K7) 

990 PRINT TAB(S)"- de consulter las règles (4)"' <28) 

1000 PRINT TAB(S)"- d'effacer un questionnaire de la disquette 
(5)"" 400) 

1910 PRINT TAB(5)"- et enfin de répondre à un questionnaire (6 
}"' {8 

1020 PRINT:PRINT:PRINT FN tet$(invé+"A tout moment, vous pouve 

z revenir au menu en tapant (EKIT>"+nor$)' <20) 

1930 PRINT FN lig$(31)::G0SUB 880' <F3) 

1040 RETURN' <IT) 

1050 'affacer' 4K9» 

1060 PRINT cls$+FN cadre$("Q U I 2 2")! <J0) 

1070 nes$="Non du fichier à effacer : “:w=8:G0SUB 1410 :non$=UP 

PERS(LEFTS(x$,8))+" QUI": IF xx=27 THEN RETURN! <U4} 

1080 IF FIND$(nom$)="" THEN PRINT FN lig$(10)'"Le fichier "ino 

n$i" n'est pas sur cette disquette !"::GOSUB B80:RETURN' <8T) 
1090 KILL non$' £LG) 

1100 RETURN' 41Q) 

1110 'jeu' <CU» 

1120 PRINT c1s$+FN cadre$("Q U I 2 2")' 4JL} 

1130 w=8'nes$="Quel QUIZZ désirez-vous ? ":GOSUB 1410 :non$=UPP 

ERS(LEFTS(x$,8)) :non$=non$+SPACES(8-LEN(x$))+" QUI" <AB) 

1140 IF xx=27 THEN RETURN' <40? 

1150 IF FINO$(non$)="" THEN PRINT :PRINT'PRINT “Le fichier "+ 

non$+" n'est pas sur cette disquette l"::GOSUB 880:RETURN' <F 

€} 

1160 GOSUB IS10:PRINT cls$+FN cadre$(non$)' <VH} 

1170 PRINT FN lig$(8)"Auteur : “'autaur$' <RW) 

1180 PRINT FN lig$(10):"Thème : "imatieres' (TB) 

1190 PRINT FN 1ig$(12)"Nombre questions "in! <OL) 

1200 PRINT FN 1ig$(29):FN tet$("Appuyer sur une touche"):x$=IN 

PUT$(1)' <66) 

1210 FOR i=1 TO n' <NN? 

1220 PRINT c15$+FN cadre${"Q UE S TION n°"+5TR$(i))'" {7H} 
1230 PRINT FN Lig$C6):PRINT STRINGS(B6,138)' <X3) 

1240 PRINT FN lig$(8):PRINT q$li)' <FR) 

1250 PRINT:FOR j=1 T0 3' <20) 

1260 PRINT ji", "r$Ci,j)'NEXT j' <AU) 

1270 PRINT FN lig$C16) PRINT STRINGS(86, 138) :PRINT:PRINT "Votr 

e réponse (1,2 ou 3) ? "ix$=INPUTS(1)" <HW) 

1280 IF ASC(x#)=27 THEN RETURN' {BN) 

1290 IF ASCIx$)>51 OR ASC(x$349 THEN PRINT bip$inet$::G0TO 12 

70! <RU) 

1300 PRINT'PRINT:PRINT' €GR) 


34 


1310 x=VAL(x$):IF x=br(i} THEN PRINT "OK l'itst+l: ELSE PRINT 
"Non, c'était la"+STR$(br(i)}+" 1"! 40) 
1320 FOR k=1 TO IOO0:NEXT' £1F} 
1330 NEXT i' <GF) 
1340 PRINT cls$+FN cadres(non$}' <D0) 
1350 PRINT FN Lig$(8)::PRINT FN tet$("Vous avez"+STR$(t}+" bon 
nes réponses" ):PRINT' €UX) 
1360 PRINT FN tet$("sur"+STR$(n)+" questions")' <3W> 
1370 PRINT:PRINT:' €UX? 
1380 PRINT FN locate$(27,15):cadre0$:FN locate$(27,16):cadrel$ 
L'PRINT FN visu$(27,17,CHR$(133)+" Pourcentage de réussite 

"4CHRSC133)):FN visu$(27,18,cadrel$)' 404} 
1390 PRINT FN locate$(27,19):CHR$(133): :PRINT USING" 

#44 1 “e(100kt)/n: PRINT CHR$(133): PRINT FN vis 
u$(27,20 ,cadrel$)::PRINT FN visu$(27,21,cadre2$)' <17) 
1400 GOSUB B80:RETURN' <2J) 
1410 'sous-prog saisie clavier! (66) 
1420 x$=""! €CK) 
1430 PRINT FN visu$(0,w,nes$):' <CB) 
1440 xxS=INKEYS: IF xx$="" THEN 1440 ELSE xx=ASC(xx$) ‘ AU) 
1450 IF xx=127 AND LENCx#)€)0 THEN x$=LEFT$(x$ ,LENCX$)-1) :PRIN 
T net$:FN visu$(0,w,nes$+x$)::60T0 1440 ELSE IF xx=127 AND LEN 
(x$)=0 THEN PRINT bip$::G0TO 1440' <W2) 
1460 IF xx=27 THEN RETURN! <{4W) 
1470 IF xx=13 AND LENCx$)=0 THEN PRINT bip$::G0TO 1440' <Bl!> 
1480 IF xx=13 THEN RETURN! €45} 
1490 PRINT xx$:' <OA) 
1500 «:$=x$+xx$: G0TO 1440" <12) 
1510 ‘lecture fichier' (26) 
1520 OPEN"I" #1 non$: INPUT #1 ,auteur$ matieres n° <8M) 
1530 DIM g$tn),r$tn,3),brén) FOR i=1 TO n:INPUT #1,q$(i)'FOR j 
21 TO 3:INPUT #1 r$Ci,j)NEXT j'INPUT #1,br(i)iNEXT i' <04» 
1540 CLOSE #1:RETURN' <XA» 
1550 ‘ecriture fichier" (1R) 
1560 OPEN "0" ,#1,non$:VRITE #1 ,auteur$ ,matiere$,n' <BR) 
1570 FOR i=1 TO n:WRITE #1,q$0i):FOR j=1 TO 3URITE #1,r#(i,j) 
MNEXT j:VRITE #1 ,br(i):NEXT i' (26) 
1580 CLOSE #1'RETURN' (KE) 
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INITIATION AU BASIC 


INTRODUCTION AU LANGAGE BASIC 


DE . ANRT 


par Patrice BIHAN 





PCW 


Le langage Basic est, parmi les centaines de 
langages informatiques existants, le plus répandu 
et, de ce fait, le plus célèbre. Créé en 1965 (eh 
oui ! 22 ans déjà), son nom est l’acronyme de 
Beginner’s All purpose Symbolic Instruction 
Code, ce qui signifie ‘Code d'instructions 
symboliques d'usage général pour le débutant”’ 
Et un acronyme, me direz-vous, qu'est-ce ? 
Simplement un mot formé par les initiales 
d'autres mots, en l'occurrence le mot BASIC, 
lequel était sensé symboliser le fait que ce 
langage servait de base à tout apprentissage de la 
programmation, ce à quoi il était destiné. 
Depuis, ce langage d'apprentissage est devenu 
peu à peu LE langage de programmation, du fait 
de sa (relative) simplicité et de son 
environnement simple et complet. Au cours des 
ans, le Basic à été constamment amélioré et 
enrichi, et il existe maintenant de nombreuses 
versions de ce langage de par le monde : BASIC 
MALLARD sur le PCW, LOCOMOTIVE BASIC 
sur d’autres AMSTRAD, BASICA, GWBASIC ou 
TURBO BASIC sur compatibles IBM etc. 
Rassurons tout de suite le débutant qui serait 
estourbi devant la liste des versions du Basic : 
elles sont toutes identiques à 90% des 
instructions ; les différences sont souvent axées 
sur des particularités qu’on ne peut, par 
exemple, jamais avoir besoin (le graphisme est 
plus riche d'instructions avec l’une plutôt 
qu'avec l’autre, ou bien encore les instructions 
permettant de faire de la musique, etc). Mais le 
principe général de construction de programme 
demeure identique. On peut dire que, pour 
situer le Basic de l’Amstrad PCW, il est très 
proche du GWBASIC, laquelle est la version la 
plus courante ; en d’autres termes, tout 
programme écrit en GWBASIC est portable sur 
PCW et inversement : tout, sauf justement les 
instructions graphiques (absentes sur le PCW de 
base) et les instructions gérant des fichiers à 
accès indexé (génial système nommé JETSAM 
sur l’Amstrad PCW et absent du GWBASIC). 
Cela étant, commençons notre étude. 





Présentation 


En fait, on note que pour pouvoir faire un 
programme, il faut que le BASIC soit déjà en 
mémoire, ét que pour pouvoir mettre le BASIC 
en mémoire, il faut que le système 
d'exploitation (en fait un programme) soit 
présent. Ce système d’exploitation se nomme 
CP/M et se trouve sur une des deux disquettes 
vendues avec le PCW. Quand on allume 
l’ordinateur, un petit programme stocké dans 
une mémoire particulière nommée ROM cherche 
sur la disquette présente si le CP/M s’y trouve ; 
si oui, ce petit programme le charge en RAM. 
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NIVEAU : DEBUTANT 





Pour utiliser le BASIC, il faut au 
préalable le charger en mémoire. 
Pourquoi ? En fait, cela ne concerne 
pas seulement ce langage, mais tous 
les logiciels du genre DBASEIHI, 
MULTIPLAN etc. Il faut, avant 

de pouvoir charger un logiciel, placer 
dans la mémoire RAM de l'ordinateur 
un programme permettant de le piloter. 





Cette mémoire RAM est une mémoire 
qui n'existe que lorsque l'ordinateur 
est allumé et disparait à son 
extinction. Elle est divisée ainsi 

(les détails sont plus complexes que 
cela néanmoins) : 


SYSTEME D EXPLOITATION 
BASIC 
programme créé 


Dès que le CP/M y est, ce dernier prend à son 
tour les opérations en main (si l’on peut dire...) 
et affiche pour commencer le signe A) à 
l'écran. Ce signe sert simplement à dire : « je [le 
CP/M] suis chargé et c’est le lecteur nommé A 
(le premier) qui sera toujours utilisé si besoin 
est ». On peut changer de lecteur en entrant B :, 
et le signe B> se mettra sur l'écran. 


Pour en revenir au BASIC, une fois le signe A) 
affiché, on peut exécuter n'importe quel ordre. 
Comme ce langage est sur la même disquette, il 
suffit de frapper, à la suite de A} , le mot 
BASIC et la touche RETURN, pour voir 
s'afficher, après quelques secondes, le message 
d'accueil du BASIC : nous pouvons donc 
maintenant programmer. 


Premiers pas 


Pour comprendre le fonctionnement du Basic, 
nous pouvons faire quelques opérations comme 
si l'ordinateur était une simple calculatrice. Par 
exemple, faire 3 +5. Cette opération n’est pas 
complexe, tant s’en faut, mais nous devons au 
préalable voir quelques conventions. Par 
exemple, il faut que le lecteur débutant se dise 
que: quand on programme, on donne en réalité 
des ordres à la machine, ce qui signifie que 
chacun de nos désirs doit être énoncé dans la 
syntaxe (la forme) suivante (qui est la plus 
répandue dans un programme BASIC, à 
quelques exceptions près) : 


INSTRUCTION (ARGUMENT 1... ARGUMENT n) 


L’instruction est un mot anglais que le débutant 
doit apprendre ; les éventuels arguments sont les 
objets pris en compte par l'instruction. Par 
exemple, pour faire l’addition suivante, il faut 
dire, en Basic : 


PRINT 3 +5 
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où PRINT est le mot réservé signifiant ECRIT 
et 3+5 les arguments. En d’autres termes, dire 
PRINT 3 +5 revient à dire, à ordonner à 
l'ordinateur, ECRIT le résultat de 3 +5, et non 
ECRIT l'expression 3 + 5. En effet, le BASIC 
évalue toujours le ou les arguments suivant la 
commande PRINT et affiche sur l’écran le 
résultat. On se doute que dire PRINT 3 va 
simplement écrire 3. Comment le faire avec le 
PCW ? Simplement, il suffit de frapper les 
touches P,R,I,N,T (en majuscules ou en 
minuscules, peu importe) puis, après au moins 
un espace, (avec la barre d’espacement), frapper 
3, +, et 5. Cela étant, le lecteur débutant peut 
attendre longtemps qu’il se passe quelque chose. 
En effet, il faut toujours valider l’ordre donné à 
l'ordinateur avec la touche nommée RETURN 
ou celle nommée ENTER, rigoureusement 
identiques quant à leur usage en Basic. En fait, 
toute commande n’est exécutée qu’à la frappe 
de RETURN ou ENTER. Donc entrons PRINT 
3+5 puis RETURN, et l'écran affiche illico 8: 
ce qui est excellent. Les débutants sont toujours 
un peu épatés par le fait qu’il faut connaître ce 
que l’on vient de dire pour simplement faire une 
addition somme toute un peu miteuse comme 

3 +5. En réalité, si l’on peut utiliser l’ordinateur 
comme une calculatrice, c’est-à-dire comme on 
vient de le faire, on peut également, et c’est 

tout son intérêt, l'utiliser comme une machine 
capable d'exécuter, non pas une simple 
instruction, mais plusieurs dizaines d'instructions 
autant de fois que nécessaire, dans ce qu’il 
conviendra d'appeler un programme informatique. 


La programmation 


La programmation est une opération consistant à 
créer un ensemble d’instructions. Ce sont donc 
des commandes données à la machine, mises 
bout à bout : le problème étant bien entendu de 
savoir quelles sont les bonnes instructions à 
ordonner ainsi ! 


Reprenons l'exemple de l'addition et 
, généralisons-le. Imaginons vouloir faire les 
opérations suivantes, pour calculer le volume 
d’un parallélépipède : 
SURFACE = LONGUEUR * LARGEUR 
VOLUME = SURFACE * HAUTEUR 


(Le signe de la multiplication se fait avec 
l’astérisque, pour ne pas le confondre avec la 
lettre minuscule x, la division avec la barre 


oblique / et la soustraction avec le tiret ‘ —‘* et 
non le soulignement ‘‘__**). 


Pour cela, prenons les valeurs suivantes : 


LONGUEUR = 13 
LARGEUR = 5 
HAUTEUR = 7 


Pour calculer, on sait maintenant qu'il faudrait 
faire : 
PRINT 13*5 [TOUCHE RETURN] 


lire le résultat sur l’écran, 65, puis énoncer 
PRINT 65 *7 [RETURN] 


Pour finalement obtenir 455. On voit ici que 
l’on a bien suivi l’ordre des opérations donné 
par les deux formules. Si le résultat est bien 
correct, on s'aperçoit en revanche qu'il est 
malaisé d'utiliser ainsi l'ordinateur, car il faut 
attendre d’avoir le résultat du premier calcul 
pour résoudre le second. Une autre façon 



















plus élégante de faire ces opérations est de les 
programmer, par exemple de la manière 
suivante : 


A) Je dis à l’ordinateur quelles 
sont les valeurs sur lesquelles 
vont porter les calculs : 


LONGUEUR = 13 


LARGEUR = 5 
HAUTEUR = 7 


B) Je dis à l'ordinateur quels 
sont ces calculs 


SURFACE = LONGUEUR * LARGEUR 
VOLUME = SURFACE * HAUTEUR 























































C) Je dis à 
l’ordinateur, que, 
une fois les calculs 


D) et pour couronner le tout, j'indique à 
l'ordinateur dans quel ordre se font les 
sections À, B et C : 


























faits, d'afficher les 1 LONGUEUR = 13 

résultats, avec 2 LARGEUR = 5 

l'incontournable 3 HAUTEUR = 7 

commande PRINT : | 4 SURFACE = LONGUEUR*LARGEUR 
5 VOLUME = SURFACE “HAUTEUR 

PRINT SURFACE 6 PRINT SURFACE 

PRINT VOLUME 7 PRINT VOLUME 


Note : il faut frapper en fin de ligne la touche 
RETURN systématiquement pour enregistrer 
cette ligne ; comme la frappe de RETURN est 
quasi-permanente, nous ne le dirons plus ! 


Nous avons maintenant fait un programme. 
Qu'est-ce qui distingue ces informations des 
précédentes ? Simplement le numéro de chaque 
instruction mis en tête de chaque ligne. En effet, 
dès que nous énonçons les commandes ainsi, 
l'ordinateur n’exécute PAS immédiatement les 
ordres, comme dans le mode direct précédent, 
mais les STOCKE dans sa mémoire, dans l’ordre 
énoncé, puis attend tranquillement qu’un nouvel 
ordre soit donné, celui qui va exécuter cet 
ensemble de commandes mémorisées, et qui va 
les exécuter en séquence, c’est-à-dire les unes 
derrière les autres. 


Le lecteur perspicace aura remarqué que les 
lignes peuvent ne pas avoir de termes BASIC 
spécifiques. Par exemple, la première énonçant 
que LONGUEUR vaut 13. En fait, il y a ici un 
terme BASIC existant mais peu utilisé, car 
facultatif : c'est le mot LET, qui serait ainsi placé : 
1 LET LONGUEUR-=-13 


et qui signifie (littéralement) : QUE LONGUEUR 
soit égale à 13. On peut ne pas l'utiliser. Le 
même lecteur aura également vu que les 
expressions arithmétiques ne sont pas énoncées 
comme on l’apprend à l’école, c'est-à-dire de la 
façon logique suivante : 

OPERATIONS = RESULTAT 


mais 
RESULTAT =OPERATIONS 


C'est comme ça, et il faudra s’y faire ! De ce fait, 
il faudra énoncer le nom de la valeur avant son 
résultat : LONGUEUR =13 et non 

13 = LONGUEUR par exemple. 


Pour en revenir à la numérotation des lignes, on 
comprend maintenant pourquoi il faut, en mode 
direct, dire PRINT 3+5, par exemple, et non 
3+5 =, comme le débutant est tenté de le faire. 
Dans le second cas, le Basic ‘‘croit‘* que l’on 
écrit une ligne de programme, dont le numéro 
est 3, ce qui créerait un programme dont 
l’unique ligne serait ainsi : 3+5= 


On conçoit aisément que, malgré toute leur 
bonne volonté, le PCW, et TOUS les ordinateurs 
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du monde devant le même cas, en restent cois : 
+5= ne veut strictement rien dire. 


L’exécution du programme 


Pour exécuter le programme, il suffit donc de 
l'indiquer à l'ordinateur, avec l’ordre RUN (en 
anglais, COURT, DEMARRE) : 


RUN [RETURN] (Tiens, j'avais dit que je ne le. 
dirais plus : tant pis, c’est dit) 


et l'écran affiche le résultat 455. Comment le 
Basic a-t'il interprété le programme ? Revoyons- 
le en détail. 


Dès que nous entrons 
RUN, le système cherche 
dans sa mémoire s’il y a 
bien un programme, ce qui 
est la moindre des choses, 
(sinon ce n’est pas la peine 
de faire RUN), et se 
positionne sur la première 
ligne, qui est dans tout 
programme le plus petit 
numéro qui s’y trouve, en 
l'occurrence ici la ligne n° 1). 


1 LONGUEUR = 13 


Il y ‘‘voit‘* (pardonnez mes excès 
anthropomorphes) qu’une valeur, nommée 
LONGUEUR, vaut 13. Il place donc dans sa 
mémoire, ailleurs que dans l’espace réservé au 
programme, le mot LONGUEUR et sa 
correspondance chiffrée, 13. Puis, comme la 
ligne est comprise et analysée, il passe aux deux 
autres lignes de même facture et fait de même : 


2 LARGEUR=-S5 
3 HAUTEUR= 7 


Arrivé à ce stade du programme, le système sait 
donc maintenant plusieurs choses : 

e Il existe trois objets, nommés LONGUEUR, 
LARGEUR et HAUTEUR, et il connaît leur 
valeur, 13, 5 et 7. 


Le Basic continue ensuite à analyser la ligne 
suivante : 


4 SURFACE = LONGUEUR* LARGEUR 


Celle-ci lui dit que, pour connaître la valeur de 
SURFACE, il faut multiplier LONGUEUR par 
LARGEUR. Or, il connaît maintenant ces deux 
valeurs, car elles sont stockées dans sa mémoire : 
il va donc les chercher, en extrait le contenu 
numérique, les multiplie et stocke le résultat 
sous le nom SURFACE, à la suite de 
LONGUEUR, LARGEUR et HAUTEUR. Puis 
continue sur la ligne suivante de la même 
manière : 


5 VOLUME = SURFACE * HAUTEUR 


et ajoute donc la valeur calculée de VOLUME en 
mémoire. 


€ 


Il peut finalement afficher le contenu de 
SURFACE et de VOLUME, puisqu'il les a 
mémorisés : 

G PRINT SURFACE 

7 PRINT VOLUME 


J'espère que le lecteur comprend bien 
maintenant la notion de programme, toujours un 
peu absconse et déroutante au premier abord (et 
même au second). Nous verrons dans les 
numéros suivants une méthode permettant de 
créer facilement des programmes, et en tout cas 
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de bien programmer, sans prendre de mauvaises 
habitudes. Pour l'instant, le débutant doit voir 
dans le programme un ensemble de commandes 
regroupées en une seule partie qui peut être 
exécutée immédiatement, sans avoir à répéter 
l’ordre explicite en mode direct d'exécution. 


Pour relire un programme, c’est-à-dire le voir 
s'afficher (et non s’exécuter), il suffit d'entrer la 
commande LIST. 


Les erreurs 


Il faut insister sur une notion qui épate souvent 
quand on débute, c’est celle traitant des erreurs. 
En effet, tout système informatique, et en 
particulier le Basic, est fait de telle façon que la 
plupart des erreurs possibles sont traitées par le 
système lui-même. Cela est fort utile et déroute 
souvent le débutant, car l’erreur énoncée sur 
l'écran perturbe l'utilisateur ; en effet, une 
erreur, dans sa vie professionnelle par exemple, 
est sujette à problème (avec le supérieur, les 
collègues, etc). Fort logiquement, le débutant 
confronté à une erreur qu’il commet avec sa 
machine le place dans une position 
inconfortable : il faut dire et redire qu'il n’y a 
rien à craindre avec un ordinateur quand une 
erreur est dénoncée par le système (dans le cas 
où l’on débute avec de simples exercices) et que 
l'on ne risque pas de casser quoique ce soit si 
l'expression ‘‘SYNTAX ERROR‘: apparaît ! Au 
contraire : chaque fois que le système découvre 
une erreur dans le programme, il s'arrête et 
l'indique au programmeur. Par exemple, il dira 


SYNTAX ERROR in 60 

pour signifier qu’il y a une expression mal écrite 
en ligne 60 ou encore 

Division by zero in 50 


etc. Chaque erreur détectée permet de corriger 
le programme, et donc d'aboutir tôt ou tard, à 
une œuvre parfaite et efficace. Tout 
programmeur qui se respecte fait toujours des 
fautes et doit contrôler si son programme est 
bon. Le débutant n’a donc pas de complexes à 
avoir et, comprendre les messages d'erreur, non 
pas comme une sanction sur ses fautes, mais 
comme une aide précieuse à la programmation : 
un langage sans analyse d’erreur automatique 
serait quasiment inutilisable. 


Comment réparer une erreur ? 


Une erreur peut être de plusieurs types ou 
simplement une faute de frappe : PRONT au 
lieu de PRINT ; un oubli etc. L'erreur la plus 
courante étant SYNTAX ERROR, il faut lire et 
relire la ligne erronée jusqu’à trouver soi-même 
l'erreur. Pour la corriger, une fois détectée, il 
faut éditer la ligne, avec 

EDIT N° de la ligne en question 


et emmener le curseur sur l’endroit en 
question ; on y insère ou efface ce qui doit être 
corrigé et l’on valide l’ensemble avec RETURN. 
La ligne que l’on vient de corriger se mettra 
automatiquement à la place de la ligne erronée. 


En attendant de plus amples détails, je vous 
convie à faire de petits programmes de calculs 
comme le précédent et à vous entraîner avec 
l'éditeur, c’est-à-dire avec la partie du 
programme Basic qui permet d'écrire et de 
corriger des programmes. 


Nous verrons le mois prochain comment écrire 
nos premiers programmes : à bientôt ! 





INTERACTIF... INTER 





Ah ! mes amis, quel plaisir de vous retrouver. Après ma 7 
déchirante rupture avec Chita la douce. j'ai dû abandonné 
mon cocotier pour retrouver le périphérique à cing heures. RS ê 
Remarquez, les embouteillages me laissent tout le loisir de 0€ : 

À. ñ Le ñ . pi 
penser aux sévices que je vais faire subir aux coquilleurs < 
de tout poil. 


C'est donc le fouet à la main que je me suis penché sur 
chaque cas. Devant l'immensité de la besogne et les recours 
en grâce qui ont été déposés, la rédaction reconnait 
unanimement que la nouvelle présentation a créé des contraintes automatiquement 
génératrice d'horreurs impropres à la consommation qui ne seront. exceptionnellement, 
l'objet d'aucun fouettage ! 
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Page 8 : 2e colonne, Ligne 12 de l'encadré remplacer X par ). 
Page 9 : 1ere colonne, Ligne 18 et 30, remplacer X par ). 


LOGOGRAF 

Marie-Claire LALANNE nous signale plusieurs omissions dans son rédactionnel (un peu trop 
retouché par nos soins... Soyons francs !) : 

Nous avons écrit que les valeurs devaient être entrées par ordre croissant et cela ne 
concernait en fait, que l'histogramme hexagonnal. 

Nous avons dit aussi que pour représenter moins de 10 valeurs il fallait mettre une valeur 
égale à 0. en fait c'était faux, si l'on à moins de 10 valeurs on ne pourra utiliser les graphes 
2,5. Get 7 du fait de la fonction FILL. 

Enfin certains lecteurs nous ayant demandé comment récupérer les images sauvées par la 
fonction [S]. je m'empresse de leur transmettre la solution : c'est grâce à l'instruction loadpic 
qu'ils y arriveront en tapant : 

?fs cs ht loadpic GRAPHEn [RETURN] et. précision importante, chaque image consomme 
24 Ko sur une disquette. 

Enfin ultime précision pour les nouveaux venus au LOGO. on en sort en tapant bye (oui 

bre !) mais on a aussi un droit de repentir (s'ils ont tapé 11 par erreur) pour retourner au 
menu en tapant ?load ‘SUITE load ‘MENU ct MENU [RETURN]. 


MONITEUR DE DISC 

Une petite sournoiserie est venue se glisser dans la représentation du directory en page 32. La 
flèche pointant sur CD devait en fait pointer sur 53. Ceci rétablit officiellement une erreur 
que de nombreux lecteurs avaient rectifiée d'eux-mêmes et qui concernait le bit 7 pour la 
mise en SYS ou en DIR des fichiers. 

Fermons la parenthèse et fêtons comme il se doit la brillante victoire de Marie-Claire 
LALANNE pour son programme LOGOGRAF qui. avec 18.07 de moyenne vient de crever le 
plafond ! Elle empoche donc la prime de 1000F qui viendra s'ajouter à une rémunération 
royale à laquelle tous les vaillants collaborateurs de l'Echo ont droit. Je ne vous dit pas ça 
pour faire des envieux mais tout simplement pour vous signaler que les articles sont payés et 
que le barème sera envoyé sur simple demande écrite accompagnant le programme ou 
l'article proposé (sur disquette de préférence). 

Alors faites comme moi. devenez riche et célèbre en écrivant dans l'Echo du PCW (en vente 
dans cette salle ?). 


SERVICE ENTREPRISE 

C'est nouveau, c'est tout beau, c'est tout chaud... 

Vous êtes nombreux à utiliser le PCW' à des fins professionnelles et pour mieux vous servir 
nous avons créé le SERVICE ENTREPRISE. Pour remplir avec efficacité la mission qui est 
désormais la sienne il regroupe dans un catalogue un ensemble de prestations spécifiques 
reservées exclusivement aux entreprises, aux administrations, aux collectivités et aux 
professions libérales. Pour citer quelques exemples de ce que vous y trouverez: accessoires, 
services et surtout des prix ! (voir page 23). 


DISQUETTES THEMATIQUES 

Ces fameuses disquettes ont remporté un tel succès que le service expédition n’a 
pu faire face à la demande. Rupture de disquette et duplication retardée se sont 
liguées afin de provoquer un engorgement aujourd'hui résorbé. Pour cette raison, 
je prie que dis-je, j'implore les lecteurs de bien vouloir accepter nos excuses. 


C'est rempli d’une incommensurable honte que je me retire maintenant et que je 
vous souhaite un joyeux noël. 
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DEVENEZ 
ASTROLOGUE EN 
QUELQUES MINUTES! 


Eh oui! Ce slogan publicitaire ne ment pas. 
En testant ce nouveau logiciel 


PARTENAIRE ASTRAL pour AMSTRAD 
PCW, je me suis rapidement rendu compte 
de ses étonnantes possibilités. 


En effet, il est rare de trouver sur le marché des 
programmes d’astrologie à la fois accessibles aux 
profanes et utiles aux professionnels. Pour une 
fois, dans un espace-mémoire réduit, il y a 
vraiment beaucoup de choses ! 


J'ai donc introduit une disquette dans mon PCW 

et l'écran m'a proposé de : 

- Lire le fichier (On peut conserver en mémoire 
plusieurs centaines de thèmes de naissance et 
les rappeler à n'importe quel moment). 

- Calculer un thème. Moi qui n'ai jamais rien 
compris à l'astrologie, je dois dire que ce n’est 
pas bien sorcier. L'écran pose des questions 
toutes simples : 

* Numéro dans le fichier 

* Nom ou prénom 

* Jour de naissance 

* Mois de naissance 

* Année de naissance 

* Heure de naissance GMT. C’est la seule 
‘‘difficulté‘* du programme ! Il faut connaître 
son heure de naissance et l’exprimer par 
rapport au Méridien de Greenwich. Pour la 

France, il suffit de retrancher une heure 

(en hiver) ou deux heures 

(en été). 


(©) PARTENAIRE ASTRAL 1987 
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* Lieu de naissance. Pour les naissances en 
France, il suffit d’entrer le numéro du 
département. Pour les naissances à l'étranger, 
l'écran demandera la longitude et la latitude. 

Après une dizaine de secondes, l'écran me 

demande si je veux la Carte du Ciel ou une 

interprétation du thème. 

‘ai commencé par la Carte du Ciel et l'écran à 
immédiatement affiché les calculs et les dessins 
suivants (voir tableau 1). 

Par contre tout à changé lorsque j'ai demandé 
l'interprétation du thème ! 

L'écran 2 instantanément débité un texte d’une 
page qui, ma foi, est intéressant. Evidemment, 
c'est du concentré, mais il représente une bonne 
image des potentiels d’une personnalité. 

Je me suis immédiatement mis à jouer les 

apprentis sorciers en demandant les 

coordonnées de naissance de toutes les 
personnes de mon entourage. Et hop ! En 
quelques secondes je découvris sur eux des 
choses que j'ignorais totalement, moi qui croyais 
les connaître ! 

Voici un exemple de texte d'interprétation d'un 
thème natal : 


Tableau 1. Voici ce que je suis, révélé par mon PCW. 








Interprétation du THEME NATAL: 16 10 1950 10.45 Lat 47.4 Lon-2.45 


Vous recherchez la vie collective mais ainez L'indépendance, Vous avez une attirance 
pour tout ce qui concerne l'étranger/ies lois/la philosophie et les voyages. 











Vous recherchez les nondanités. Vous ave des dons jour l'art et la politique. Mais les 
principales réalisations se feront dans le nariage/les contrats ou les associations. 













Votre fanille est uée l'étranger. Vous ferez des études de philosophie ou de 
droit. Vous etes PtIRISÉe et ainez | Équitation. À ; 








Vous avez un bon jugement mais renettez souvent en question les idées reçues. Vous 
pouvez choisir plusieurs voies (politique/aagistrature/littérature). Si Nercure est 
affligé vous risquez des difficultés avec les contrats et les associés. 


Vos partenaires sont raffinés. L'anour est un facteur puissant et devrait etre réalisé 
dans le nariage. Vous aurez une popularité artistique. 


Î 


Vos anis vous aideront dans les affaires. Vous pouvez avoir une situation importante 
dans l'industrie moderne (infornalique/aviationw/nucléaire...). 


Votre situation sera éclatante et bien en vue. Vous aurez un grand pouvoir de décision. 



















n'etes pas tolérant et ceci peut vous 


Les rapports avec l'étranger sont difficiles. Vou 
‘étranger et aux blessures à la cuisse 


conduire à des procès. Atlention aux accidents à 















Les changements sont nonbreux et le caractère instable. Vous avez une grande intuition 
et me tendance aux ronances et aux illusions. 







Vous excellez come interaédiaire. Votre frère éventuel joue un role important pour vous. 





Vous réussirez au nieux dans la aode ou les arts. 


















jets ges enthousiaste et conbatif. Vous vivez dans l'action et cherchez à conquérir. 
ention aux conflits. 


Vous aurez une réussite dans les écrits ou les voyages. Un oncle ou un frère pourra vous 
aider 





Vous avez une grande profondeur dans les idées et recherchez l'élévation spirituelle. 






Les contrats/les associations et le nariages sont sounis à l'instabilité. 







Votre situation est floue. Attention aux activités illégales. 







Vous avez une forte sensualité et un grand nagnétisae ! 


Ce logiciel est à la fois un jeu et un outil de 
travail pour les initiés. Il est très pratique pour 
des profanes désireux de briller en société, et 
avec un peu de psychologie, on a de quoi 
égayer une soirée. 


Mais ce n’est pas tout ! 


Tout ce que nous venons de voir, n’est que la 
version la plus simple. Il y en à d’autres : 


Avec la version IL, j'ai pu également prédire 
l'avenir, année par année, à chacune des 
personnes de mon entourage et ce, par la 
technique des Révolutions Solaires. 









En plus de la Carte du Ciel Natal, l'AMSTRAD 2 
dessiné la carte de l'année et imprimé un texte 
de prévisions entre 2 anniversaires. Voici 
l'exemple du thème précédent pour 1987 : 


RS pour 1987 Lat 48.5 Len 2.2 Q= maisons natales 


LTTTE TZ 


RE Source 
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( 
( 
( 
( 


werrerestres RES 


| 
l 


Tableau 2 


Cette version permet également les 
comparaisons de thèmes entre 2 personnes du 
fichier et dessine la Carte du Ciel ‘‘Composite‘* 
(mi-point). 


Les études de couples : 


Il existe également une version ‘‘Interprétation 
des thèmes de couples‘ permettant de connaître 
ainsi les potentiels des relations avec le 
partenaire affectif, amical ou professionnel. 


Saviez-vous que les affinités et les répulsions 
entre les individus s'expliquent parfaitement 
grâce à la position de leurs planètes ? Peut-être 
ce logiciel vous aidera à trouver votre partenaire 
astral, le partenaire idéal ? 


Il est particulièrement intéressant de savoir ce 
qui marche ou ne marche pas avec son ami, son 
conjoint, son partenaire professionnel (employé, 
patron, associé), ses relations ou dans les 
relations en famille. 


J'ai pu étudier un couple que je pensais bien 
connaître, mais j'ignorais tout à fait que leur 
sexualité était tellement intense. En leur 
posant la question sur un 
ton mi-figue, 


Aspects réciproques pour: 
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Tableau 3 
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Voici un exemple de ce qu'il peut faire : 










DIRECTIONS PRIMAIRES pour: 42.00 ans  Pas=0.95987 Ecart 16: 2h 4! 
THEME NATAL TS INITIAL POLE TS FINAL THEME PROGRESSE 
AS-.... 8°47' SCO (1) Sh3 48.5 I2h1S 6°3%4' SAG (2) 
HC-..., 20°65' LID (10) 3h 3 0.0 6h1s 3°67' BAL (11) 
SOLEIL. e@°1è' GEM (7) eg h c 39.75 e3h ! ‘46 CAN ( 8) 
LUXE... 05° S' BAL (12) gh18 40.97 10h59 88°39" C0 (1) 
RERCURE 9°46" TAU  { ?) 14 h 2 48.17 ch 1! oJ°e1' GkM ( 8) 
VENUS.. 20° 2° (6) 18 h4 39.% 21h03 11°54' GEN (8) 
RARS., 15°67° BEL (5) {8 h 3% 35.18 eh! 5938" GEM (7! 
JUPITER 17° 3° VIE (10) 4h49 17.58 Th 3 £1°34" BOL (ie) 
SATURNE 8°54' { 8) &h4 83.73 1hc4 08°e6' CAN ( 9) 
URANUS, 16°33" ( 8) 0 à 35.53 £3h 3 10°31' CAN ( 8) 
NEPTUNE 3°46' BAL (11) She! 85.18 Jh 2 10°35' 50 (1) 
PLUTON. 8°13" ( 3) this 7.3 3hS7 e8°30 LIO (10) 
L-NOIRE 20°33" (1e) 1h53 38.48 10 h 34 e4°56' SCO Cf) 
NOEUD-N 11°13° CAN C6) ee h 54 ce.69 Lh 3% @°27' LID (5) 





O= Maisons Natales 


Tableau 5 






























mi-raisin, ils m'ont avoué en riant que c'était 
effectivement pas mal ! (Voir tableau 7). En 
prime voici ce que la machine à sorti (tableaux 
3 et 4). 


Il existe enfin une version réservée aux initiés 

(ASTRO III) qui n'auront sans doute pas besoin 

des textes d'interprétation mais qui sauront 

apprécier le large éventail des possibilités de 

calcul en quelques secondes : 

- Thème Natal. 

- Révolutions Solaires. 

- Révolutions Lunaires. 

- Directions Progressées. 

- Directions Symboliques. 

- Synastrie et Composite. 

- Direction Primaires (avec pôles des planètes). 

- Calcul du Maître de Nativité et de la 
Dominante Planétaire. 


A ma connaissance, c'est la première fois qu’un 
logiciel aussi complet est proposé sur le marché. 
Le calcul du Maître de Nativité (c’est-à-dire la ou 
les planètes les plus influentes sur une 
personnalité) demande plus d’une heure à la 
main, sans compter les innombrables risques 
d'erreurs. C’est pourquoi cette méthode 
découverte par Volguine est rarement utilisée. 
Ici, le résultat sort en 20 secondes ! 


Quelques données techniques : 


- La taille des fichiers d'interprétation est 
d'environ : 

60 k pour le thème natal 

60 k pour les prévisions annuelles 

100 K pour les études de couples 


Il y a plus de 1000 variantes de textes pour 
chaque interprétation. 
Tableau 4 






Thène I: Thène Il: 





Kaison Planétes 


SOLEIL. 


Thène I 
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Thène II 
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Tableau 6 


Les coefficients les plus élevés indiquent les MA] 


Coefficient pour: 
Coefficient pour: 
Coefficient pour: 
oefficient pour: 


© 1 EÙ 
CO) = C2 100 


Coefficient pour: 
Coefficient pour: 
Coefficient pour: 
Coefficient pour: 
Coefficient pour: 
Coefficient pour: 


CLR LES COS LOS LES LES LS LES LES L} 
L°3 
co Sr 


Evidemment, certains textes peuvent être 
contradictoires, ce qui signifie que les potentiels 
d'événements s’annulent ou qu'ils se présentent 
à la fois en bien et en mal. Mais si je compare 
au baratin d’une dizaine de pages que l’on 
trouve dans les ordinateurs de certaines grandes 
surfaces, je peux affirmer que le rapport 
qualité/prix de ce ‘‘concentré‘* est vraiment 
excellent. En effet même la version la plus chère 
est amortie après quelques études. 


- La précision des calculs est d'environ une 
minute d’angle pour les planètes rapides et de 5 
à 10 minutes pour les planètes lentes. Sachant 
que les interprétations d’horoscopes sur 
ordinateurs ne considèrent que les angles à un 
degré près, on est largement dans les limites. 


- Le logiciel calcule également les positions de la 
LUNE-NOIRE et du NOEUD NORD ainsi que les 
aspects entre les planètes dont on peut modifier 
les orbes à volonté. 


La disquette est fournie avec un mode d’emploi, 
une notice d'introduction à l'astrologie et une 
liste de livres à lire si l’on veut vraiment aller au 
bout des choses. 


En résumé, j'avoue avoir passer des heures 
incroyables en compagnie d’amis qui, se 
prennant au jeu, finirent par dévoiler, au fil de 
la conversation, beaucoup de traits de leur 
caractère qu'ils voilaient, probablement par 
timidité. Il faut avouer que c’est un prétexte 
‘‘divin‘‘ pour lancer une furieuse conversation. 
L'un des convives, m'a même suggéré de 
prendre mon PCW sous le bras pour aller 
vendre des thèmes dans les centres 
commerciaux et d’assortir son conseil d’un 
commentaire que je vous révèle en toute 
confidentialité: ‘‘A 50 F la carte, il te faut 3 
jours pour amortir le programme et 15 pour 
payer la machine... 


D'un point de vue strictement astrologique, il 
est évident que n'importe laquelle des versions 
apporte à l'amateur ou au professionnel une 
économie en temps et une fiabilité dans les 
calculs qui rendront cet outil plus 
qu’indispensable. 


FICHE TECHNIQUE 
TYPE : LOGICIEL VIE-PRATIQUE 


AUTEUR : PARTENAIRE ASTRAL 

EDITEUR : LOG/STICK 

DISTRIBUTEUR : DDI 

PRIX PUBLIC : 450, 600, 950 & 2000 FTTC 
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Tableau 7 


NOMENCLATURE DES VERSIONS 


ASTRO I - PRIX TTC 450 F 

CARTE DU CIEL AVEC INTERPRETATION 
ASTRO II - PRIX TTC 950 F 

IDEM QUE ASTRO I + REVOLUTION SOLAIRE 
ET CARTE DU COUPLE 

ASTRO III - PRIX TTC 2000 F 

VERSION COMPLETE INCLUANT 
ASTRO-COUPLE 

ASTRO-COUPLE - PRIX TTC 600 F 
THEME DE COUPLE AVEC INTERPRETATION 





Grâce à ASTRO, elle nous aime tous les deux ! 
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L'OUTIL FINANCIER QUI VOUS VEUT DU BIEN 





IN VEST + par Olivier COQUIN 
RSR aisons maintenant un petit 
rappel sur les notions introduites par ce sujet. 


Pour survivre, une entreprise doit maintenir et 
développer ses capacités de production. 


Atteindre cet objectif nécessite la connaissance 
de l’actif ou choix d'investissement. 


Le problème du choix de l'actif peut se 
décomposer en deux parties principales. 


A) Les critères de choix d’investissement 


Avant d'analyser ces différents critères, il est 
nécessaire d'évaluer et de dater toutes les 
dépenses et recettes qui sont rattachées à 
l'investissement. C’est ainsi que l’on est amené à 
établir un échéancier complet. 

Les techniques utilisées se différencient suivant 
le fait qu’elles prennent explicitement en 
compte (actualisation) ou non les décalages dans 
le temps qui peuvent exister entre les flux de 
recettes et de dépenses. 


a) Principe de l’actualisation 


Il s'agit de rendre actuelles, c’est-à-dire évaluées 
par rapport à une période de référence, les 
chroniques de recettes et dépenses (ou, ce qui 
revient au même, leur solde net 
d'amortissement). 

L’actualisation nécessite que soient connus deux 

paramètres : 

- La période de référence, choisie le plus 
souvent comme étant la période pendant 
laquelle se décide l’amortissement. 

- Un taux d'actualisation ou taux d'équivalence 
dont la logique d'utilisation est la suivante : 

1 franc placé à x % pendant un an a pour 
valeur 1 + x % à la fin de cette période. x est 
donc appelé Taux d’actualisation ou Taux 
d'équivalence. Il est l’expression chiffrée de la 
préférence pour le présent. 


b) La Valeur Actuelle Nette (VAN) 


L’actualisation permet de calculer la valeur 
actuelle nette d’un investissement en comparant 
la valeur actuelle de la dépense d'investissement 
à la valeur actuelle de la succession des revenus 
par période. 


VAN = -I+SOMXx(R - D)x(1 +X) 7 
avec : 
I 
R, D 


montant de l'investissement réalisé l’année 0 
recettes et dépenses de l’année T 

taux d'actualisation retenu 

la somme de T-1àN, 

N représentant la durée de vie de 
l'investissement 


Une valeur actuelle nette positive signifie que, 
au taux d’actualisation choisi, l’investissement 
est rentable; il faut donc le réaliser si c’est le 
seul projet possible. 





Ce mois-ci, nous allons aborder une fois de 
plus la question de gros sous, ou plus 
exactement le domaine assez complexe de 1a 
finance. Il s’agira d’analyser les 
conséquences de l'investissement que vous 
vous préparez à faire. Peut-être cela vous 
rappelle-t-il quelque chose ? 

Non ! Cherchez bien... 

Si vous n’en avez aucune idée, vous êtes 
impardonnables, car j'ai déjà traité de ce 
problème dans l’Echo N°3 et plus 
précisément avec le programme 
INVESTISSEMENT. Cette fois, il n’est pas 
question de lui faire une concurrence qui ne 
se justifie pas mais simplement, de proposer 
une application complémentaire et 
néanmoins autonome... 


Lorsque l’entreprise doit choisir entre des 
investissements concurrents les uns des autres, 
les divers projets doivent être classés par ordre 
de revenus actualisés décroissants. La méthode 
du revenu actualisé conduit à sélectionner 
l'investissement dont le revenu est le plus élevé. 
Dans le cas d’investissements indépendants, il 
faut retenir après classement des divers projets 
par ordre de revenus actualisés décroissants, 
ceux dont le revenu est le plus élevé, ceci dans 
la limite du financement disponible. 


c) L'indice de profitabilité (IP) 


On se réfère au rapport : 

VAN / Montant de l'investissement 

.…..qui mesure le profit par franc investi. 

Dans le cas d’un seul projet, un indice de 
profitabilité positif indique que le projet est 
rentable. 

Dans le cas de projets concurrents, il faut retenir 
celui offrant le plus grand indice de profitabilité. 


d) Le Taux Interne de Rendement (TIR ou TRI) 


C’est le taux d’équivalence qui rend la VAN 
nulle : l'opération se trouve être ni déficitaire 
(en ce cas la VAN serait négative), ni 
bénéficiaire (VAN) O). 

Ce taux Z est la solution de l’équation : 

- I + SOM x (R-D) x (1+Z) '=0 

D'une manière générale, un projet d'investissement 
est dit rentable, donc accepté, si son taux 
interne de rendement est supérieur à un taux 
interne seuil prédéterminé. 


Dans le cas de projets concurrents, il faut retenir 
celui offrant bien évidemment, le plus grand 
taux interne de rendement. 


e) Le Délai de Récupération du Capital 
(Pay Back Period) 


Le délai de récupération du capital est le 
nombre d’années au bout desquelles le revenu 
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Figure 1 


CHOIX D'INVESTISSEMENT 





tiré de l'investissement aura remboursé la 
dépense initiale d'investissement. 


Il satisfait d’abord le désir de flexibilité de 
l’entreprise qui veut que les capitaux ne soient 
pas trop longtemps immobilisés. En effet, avec 
le délai de récupération du capital, la 
reconstitution rapide des disponibilités 
financières permet d’espérer de nouvelles 
occasions d'investir, plus favorables, qu'une 
longue immobilisation risquerait de laisser 
échapper. 

Il satisfait aussi le souci d'indépendance 
financière de l’entreprise. Son utilisation répond 
aux préoccupations financières de 
l'entrepreneur : 


l'acte d'investissement étant un acte financier 
diminuant les liquidités de l’entreprise, il 
constitue un danger permanent car le manque 
de liquidités risque d'introduire des contrôles 
extérieurs et, en premier lieu, une dépendance 
trop marquée vis à vis des banques. 


En règle générale, le délai de récupération 
traduit donc bien le risque, mais mal la 
rentabilité, car il accorde la même importance à 
des sommes disponibles à des dates différentes. 
Pour remédier à ce problème, on utilise un délai 
de récupération actualisé. Il faut pour réduire les 
risques retenir les investissements dont le délai 
de récupération du capital est le plus faible. 


B) Sélection de l’investissement à retenir 


a) Analyse de sensibilité 

On procède à une augmentation ou à une 

diminution des charges et des recettes de 10 %. 

On détermine alors les facteurs les plus influents 

sur les résultats. 

b) Utilisations du taux d’actualisation 

Il y en a deux principales : 

- dans le calcul de la VAN, ce qui implique donc 
une nouvelle étude 

- comme Taux Seuil dans le TRI : 

ainsi, si un investissement a un TRI de 10% et 

si le taux seuil est fixé à 12%, l'investissement 

ne sera pas retenu. 

8 L'Echo du PCH - 1987 


MENU PRINCIPAL 


Caleuls....,..,,,,,.,, 8 


Quitter. ....,,,,,,,,,,,,,3 
Votre choix ? 


Mais voyons maintenant plus en détail le 
fonctionnement du programme. 

Après le RUN auquel nous sommes désormais 
habitués et une petite présentation que je vous 
laisse le soin d'apprécier, vous verrez apparaître 
le menu principal (figure 1). Je vous précise 
tout de suite qu'il vous est impossible d'accéder 
aux calculs si vous n'avez rien saisi (essayez, 
vous verrez). 


La saisie des données 


Passons à l’option 1. Celle-ci nous amène au 

menu de saisie (figure 2). Vous remarquez qu'il 
vous est possible de saisir les caractéristiques de 
l'investissement soit au clavier, soit à partir d’un 
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fichier sur disquette si vous les aviez 
préalablement sauvegardées lors d’une utilisation 
précédente. Cette option de sauvegarde vous 
permettra de vous remémoriser les résultats des 
calculs effectués et éventuellement de ressortir 
ceux-ci sur imprimante. 


Figure 2 
CHOIX D'INVESTISSENENT 





9 L'Echo du PCN - 1987 
MENU DE SAISIE 
Dennées du disque. ....... 
Données du clavier 
Sauvegarde des données. ..3 
Menu principal........... 


Votre choix ? 


Mais revenons à la saisie des caractéristiques de 
l'investissement introduite par l'option 2 du 
menu de saisie. Vous devrez donc entrer, dans 
un premier temps, le montant de 
l'investissement, les besoins en fonds de 
roulement, la durée en nombre d’années de 
l'investissement et le taux d'actualisation que 
vous aurez retenu (figure 3). 


Figure 3 


CHOIX D' INVESTISSEMENT © L'Echo du PCN - 1397 


mt SAISIE DES CARACTERISTIQUES DE L'INVESTISSEMENT 


Montant de l'investissenent (hors bfdr) : 106,000.00 
Besoins en fonds de roulement (bfdr)  : 120.00 
Durée totale (noabre d'années) ë 13.0 
Taux d'actualisation El: | 


X RETURN ) pour valider CeDEL ) pour corriger 





Puis viendront la valeur résiduelle nette et le 
type d'amortissement de l'investissement. Si 
l'amortissement est linéaire, celui-ci sera calculé 
automatiquement pour toutes les années. Dans 
le cas contraire, vous devrez saisir une par une 
les différentes dotations (figure 4). 


Figure 4 


CHOIX D'INVESTISSEMENT @ L'Echo du PC - 1987 


Montant investissement : 398.00 Cuaul dotations : 31,076.9% 


4 RETURN ) pour valider +DEL ) pour corriger 





Il vous restera encore à rentrer les recettes et 
charges d’exploitation décaissables (figure 5). 
Figure 5 


CHOIX D' INVESTISSEMENT © L'Echo du PCH - 1987 


0e 
pour corriger 


5 
€ RETURN ) pour valider 





Une fois tout cela fait, vous pourrez revenir au 
menu principal par l'option 4. Si vous avez 
oublié de sauvegarder vos données fraîchement 
mais difficilement saisies par l'option 3, le 
programme se chargera de vous le signaler. 
L'option 1, comme je vous l’ai expliqué, vous 
permettra de rappeler des données sauvegardées 
sur disquette mais vous donnera aussi la 
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possibilité de prendre connaissance des fichiers 
qui peuvent exister sur l'unité de disque à partir 
de laquelle vous avez chargé le programme. Ces 
fichiers se caractérisent par le fait qu'il ont 
l'extension ‘‘.INV‘‘. Ainsi lorsque vous 

chargerez ou sauvegarderez un fichier, ne mettez 
qu'un nom de huit lettres maximum. 


Les calculs 


Nous retournons au menu principal. Pour passez 
au menu calcul (figure 6), il faut faire le choix 2. 
La première chose à faire est de calculer les 
Cash Flows nets = Bénéfice net + 
provisions non exigibles. Les Cash Flows 
Bruts incluent en plus l’amortissement. Je vous 
rappelle que le Cash Flow est un indicateur des 
possibilités maximales d’auto-financement de 
l'entreprise. 


Figure 6 


CHOIX D'INVESTISSEMENT 


@ L'Echo du PCN - 1987 
NENU CALCULS 
Cash flous nets 
VAN / TRI / PAY BACK PERIDD...2 
Menu principal 


Votre choix ? 


L'option 1 fera apparaître tout d’abord un 
rappel des données initiales de l'investissement 
(figure 7), puis vous affichera le tableau des 
Cash Flows (figure 8) comprenant pour toutes 
les années, les recettes, les dépenses, l'excédent 
brut d'exploitation (EBE), la dotation, le résultat 
net et bien évidemment le Cash Flow net. 


Figure 7 


CHOIX D' INVESTISSEMENT @ L'Echo du PCN - 1987 


DONNEES INITIALES 
hyntant de fa ipuestissen nt 10,120.0 
(dont 126 de besoin en fds de roult.) 
Taux d'actualisation 120% 
Valeur résiduelle nette 120.0 
Durée 13 années 
# Tapez une touche pour continuer * 


Figure 8 


CHOIX D'INVESTISSEMENT 3 L'Echo du PC - 1987 


L'option 2 calculera, dans la limite du possible 
(c'est-à-dire sous réserve que les données soient 
cohérentes), le taux de rendement interne, la 
valeur actuelle nette, l'indice de profitabilité et 
le délai de récupération du capital (figure 9). 
Sur ce point, il se peut que vous ayez à 
patienter quelque temps. Cela sera dû 
principalement à l'estimation du taux de 
rendement interne. En effet, ce dernier sera 
extrait d’une fourchette allant de 1 % à 50 % 
suivant un pas assez petit jusqu’à satisfaire 
suffisamment une équation que l’on tire des 














CHOIX L'INVESTISSEMENT 6 L'Echo du PCN - 1987 


CRITERE DE RENTABILITE ACTUALISE 
Valeur Actuelle Nette +24,039.84 (frs) 


Indice de Profitabilité ; +.84 


Taux de Rendement Interne +25.750 (4) 


Délai de Récupération du Capital : 1 année(s) et 251 jour(s) 
(Pay Back Period) 


* Tapez une touche pour continuer # 
formules vues plus haut. Toutefois, dès que les Figure 9 
calculs ont été faits une fois, si l’on désire 
réafficher les résultats, cela sera pratiquement 
immédiat car une variable (un booléen pour les 
connaisseurs) indiquera au programme de ne pas 
refaire les calculs et d'afficher directement les 
résultats. Après cela, il vous suffira d'appuyer 
sur une touche pour voir les résultats du test de 
sensibilité du projet d'investissement (figure 
10). Celui-ci est obtenu comme je l’ai expliqué 
plus haut, en faisant varier les recettes et les 
charges de +10% et -10%. Les Cash Flows 
résultants s'affichent alors, ainsi que les VAN, 
TRI et IP. He e 
CHOIX D'INVESTISSENENT @ L'Echo du PC - 1987 


Recettes MIE Charges 











1 119,968.2 38,940. 109,395. 109,406. 
D SE 
J J,848.4 dd: , f , 849.4 
4 4,580.5 4,34, 4,336.0 4,594 
he | î jai | i 
i FE As si a 
J 34.5 3,945. HF 303 
1 , ù'i ŒrEE ET DFE 
ÿ 16,060. 13,668. 14,997. 14,41. 
Î 357.8 1933: FFE A7: 
yk) 5,058.3 4,836.1 4,46. M8. 
CRC CS HAUTES CRT NS *24,297,39 
Le SR 4.342 .14è # À 4 
PR ER di 8 OR reste 4 ALES 
# Tapez 1me or pour page arte ou pour oh au Aenu * 
Pour chaque tableau, une sortie sur imprimante 
vous sera proposée. Pour revenir au menu 
principal, choisissez l'option 3. 
Si vous désirez établir de nouveaux calculs ou si 
par mégarde vous redemandez au programme de 
saisir de nouvelles données, le message de la 
figure 11 vous demandera confirmation. 
Figure 11 


CHOIX D'INUESTISSEMENT 


® L'Echo du PCH - 1987 
ATIENIION 


SUPPRESSION DES DONNEES 
Tapez ( EXIT ) pour annuler l'ordre, ou { RETURN > pour Confiraer 





Voilà, j'ose espérer que 
vous saurez tirer le 
meilleur parti de 
ce programme qui 
attend, comme de 
coutume, vos 
commentaires 
avisés. 





L'OUTIL FINANCIER + L'ECHO DU PCW N°12 


10 HRÉEREEEEREEEEECEEEEEÉEREHELT (06) 

20 ‘ INITIALISATION' (6) 

30 "ARRETE (OT) 

40 '' (3V) 

60 DEFDBL C:DEFINT I-K:CDS=CHRS(27) :CLS$=CD$+"E"+CD$+"H"; VNS=C 
D$+"p":VF#=CD$+" M EFLS=CDS+" M"! C14) 

60 CN$=CD$+"e" CF$=CD+"F"EFPS=CD$#+"J":LFS=CDS+"K":BEEP$=CHRS 
(7):WIDTH 265" (7H) 

PORTER LEE LUS L OAUPE EE LES LEE || ESS) 

80 T$=STRING#(89,"-")'" (VR) 

90 DEF FNC$(C,L)=CD$+"V"+CHR#(324L)+CHR$(3240)" CUS) 

100 DEF FNRS(R)=STRINGSCR, CHR$(95))+STRINGS(R,CHR$(8))' (FN) 
110 DEF FNP$CXS,L)=FNCSC(90-LEN(X$))/2,L)+X$" (V2) 

120 DEF FNTSCKS)=FNPSC"RXX "4K$+" XX" O)+FNPSCSTRINGS(LENCK 
$)+10,138),1)' (WG) 

130 DIM CALC(30,10),VANCS),TRICS),RIP(S) ,MENUS(10)' C4U) 

140 FO$=CD$+"X"+CHRS(32)+CHR$C32)+CHRS(62)+CHR$( 121)" (3C) 

150 AZS=VFS+CNS+FOS+CLSS CLS2$=FNCS (0, 2)+EFP$" (V3) 
160 F1$=C0$+"X"4+CHRS(34)+CHRS( 32) +CHRS(3S)+CHRS( 121)" 
170 F2$=CD$+"X"+CHRS(38)+CHRS(32)+CHRS(53)+CHRE( 121 )' 
180 F3$=CD$+"X"+CHRS(6O)+CHRS( 32)+CHR$(3S)+CHRS (121 )' 
190 F4$=CD$+"X"+CHRS(38)+CHRS(32)+CHR$(48)+CHRSC 121)" 
200 FS$=CD$+"{"+CHRS(SS)+CHRSC32)+CHRS (36 )+CHRS( 121)" 
210 K1$=" "+CHRSC188)+CHRS(187)+CHR$C188)+" "! (QC) 
220 M1$="* Tapez une touche ":M2$="pour retourner au menu *X":M 
3$="pour continuer *"' (Q) 


(3h) 
CN) 
(3K) 
(3V) 
(3K) 


230 '' (58) 
240 ‘tk PRESENTATION #KX' (11) 
250 ‘' (SA) 


260 PRINT CFS:CLS#:FOR 1=1 TO 27:READ AA$:ABS=ABS+AA$ PRINT FN 
PSCAB$,12):NEXT l' (HD) 

270 FOR 1=1 T0 7:READ AA$:FOR J=18 TO 14 STEP -2,PRINT FNC$(37 
+241 JYSAASSEFPSINEXT J,1' (P2) 

280 PRINT FNP$C"Un logiciel de choix et d'analyse d'investisse 
nent",16)'" (C2) 

290 FOR I=1 T0 2:PRINT FNP$(STRINGS(37-1041,95),16+2XI):NEXT I 
! (PO) 

300 PRINT FNP$(N1$+h34,28):G0SUB 3720' (L2) 


310 '' (57) 

320 ROMEO EEE (00) 
330 ' PROGRAMME PRINCIPAL! (64) 

340 HRÉREEMMREPOOOONEPREEEEE (05) 
350 '' (5B) 

360 ‘tkt MENU PRINCIPAL #Xk' C3N) 

370 ‘' (5D) 


380 PRINT FO$:CLS$:RESTORE 3780 :GDSUB 3460° (K6) 
390 OPI=AI" (FN) 

400 ON OP1 G0SUB 450,1120,410:G0T0 380' (JT) 

410 PRINT AZ$:END' (52) 


420 ‘' (59) 
430 'XKX MENU SAISIE X44' (X9) 
440 ‘' (5B) 


450 PRINT FO$:CLS$:RESTORE 3790:GOSUB 3460' (15) 
460 OP2=Al" (FH) 


470 IF OP2=4 AND SA=0 AND S=1 THEN PRINT CLS2% ELSE 540' (A2) 
480 PRINT FNP$C"ATTENT I O N",12):BEEPS' (OM) 
490 PRINT FNP$("O O NNE E S"'+#SPACES(5)+"N O N'+SPACES(5j+"S 


AUVEGARDEES",16)" (74) 

500 PRINT FNP${"Tapez € EXIT } pour ignorer, ou € RETURN > pou 
r sauvegarder",28)' (02) 

510 REPS=INKEVS:IF REP$="" THEN 510 ELSE REP=ASC(REP#)' (E4) 
520 IF REP<)13 AND REP<)27 THEN 510' CFX) 

530 IF REP=13 THEN 2660" (X8) 

540 IF OP2=4 THEN RETURN ELSE ON OP2 GOSUB 2850,580,2640:G0T0 
450" (55) 


550 '' (SD) 
560 'Y#* Saisie des données au clavier Kkt' (50) 
570 ‘' (SF) 
580 IF S=1 THEN GOSUB 3090:IF REP=27 THEN RETURN' (4T) 
590 US$=U1$' (6H) 
600 PRINT CLS2$:PRINT FI$:FNT$C"SAISIE DES CARACTERISTIQUES DE 
L'INVESTISSEMENT" ):' (13) 
610 GOSUB 3680’ (KO) 
620 PRINT F2$' (JL) 
630 CFN=0'RII=0:DRC=0" (VW) 
640 RESTORE 3820 :PRINT FNP$("Montant de l'investissement (hors 
bfdr) :",8):G0SUB 3290:MON=NUM:IF MON&I THEN 640' (7C) 
650 PRINT FNP$("Besoins en fonds de roulement (bfdr)"+SPACES(4 
J+"1",10):60SUB 3290'BFDR=NUM' (63) 
660 PRINT FNP$("Durée totale (nombre d'années)"+SPACE#(10)+":" 
,12):60SUB 3290 :N=INT(NUM)' (OR) 
670 PRINT FNP$C"Taux d'actualisation"+SPACES(20)+":" 14): GDSUB 
3290 :T=NUM' (E8) 
680 IF N=0 DR T=0 THEN PRINT FNPSC"DONNEES ABERRANTES 111" 17) 
!BEEPS:FNPSCM1$+M2$ 20) :GOSUB 3720'RETURN' (LE) 
690 RESTORE 3800 PRINT F4$:CLS$:F2$:GOSUE 3490' (39) 
700 A=Al' (BJ) 
710 IF A=1 THEN FOR I=1 TO N'CALC(I 3)=MON/N:NEXT 1:G07T0 920' 
(MM) 
720 ‘CX traitent si A=2, cad, cas d'amortisst particulier à 
chaque année *)' (ES) 
730 PRINT FO$:CLS2$ PRINT FI$:FNC#(10,1):STRING$(74,"-"):FNCSC 
12,2)"ANNEE"SPACES(10)"DOT, AMORTI"SPACES(20) "ANNEE "SPACES(10)" 
DOT,AMORTI":FNC$(10,3):STRING$(74,"-")1' (CA) 
740 SOM=1E+30' (JV) 
750 VWHILE MON<SOM' (TM) 
760 GOSUB 3680:PRINT FNC$C0,1):VNS:FNP$(K1$+" SAISIE DES DOTAT 
IONS NON LINEAIRES "+K1$,1):VF$1' (88) 
770 PRINT F2$:CLS$:' (UB) 
780 PRINT FNC$(10,18):"Montant investissement : "USING US$:MD 
N' (0B) 
790 PRINT FNC$(50,18):"Cumul dotations : "' (UV) 
800 50M=0' (DU) 
810 FOR I=1 T0 N' (MG) 
820 LI=I-1:C0=12' (OV) 
830 IF 1215 THEN LI=I-16:C0=57' (9M) 
840 PRINT FNC$(CO LI): I'FNCSCCO#S LI):": "1: CD=C0+15' (AU) 
850 RESTORE 3860:60SUB 3300:CALC(I,3)=NUM' (UP) 
860 SOM=SOM+CALC(I,3)' (24) 
870 PRINT FNC$(68,18) USING US$:50M' (MA) 
880 NEXT I' (FC) 
890 PRINT F3$:FNCS(O,1):EFP$:FNP$C" Investissement initial :"+46 
TR$CMON)+" / Amortissements cumulés :"+STR$(SOM) 1): PRINT FNP 
$CM1$+M3$,2): :60SUB 3720! (WT) 
900 IF MONXSOM THEN PRINT FNC$(0,1):EFPS$:BEEP$:FNPS("ERREUR : 
aontant des dotations > montant de l'investissement" 1 )'PRINT 
FNP$(MI$+"et Recommencer *",2)::G0SUB 3720' (RW) 
910 WEND' (CD) 
920 PRINT FO$:CLS2$:G0SUB 3680' (C0) 
930 PRINT F2$:FNC$(22, 10)" Valeur résiduelle nette au bout de"+ 
STR$(N)+" années" (L3) 
940 PRINT FNC$(22,12)"C y compris le retour en fonds de roulen 
ent } :"! (IT) 
950 RESTORE 3870:G0SUB 3290: VR=NUM' (M3) 
960 PRINT CLS$:F3$:VNS:FNPS(K1$+" SAISIES DES RECETTES / CHARG 
ES D'EXPLOITATION DECAISSABLES "+K1$,1):VF#' CUT) 
970 PRINT FI$:FNCSCS, 1): STRINGS(82,"-"):FNCS(7,2)"ANNEE"SPACES 
(S)"RECETTES"SPACES(7)"CH,EXP DEC, "SPACES(7)"ANNEE"SPACES(S)"R 
ECETTES"SPACES(7)"CH,EXP DEC, ":FNCS(S,3):STRING#(82,"-")1! (83 


46 L'OUTIL FINANCIER + L'ECHO DU PCW N°12 


980 US#=U2$ (GL) 
990 PRINT F24' (JV) 

1000 FOR I=1 TO N' (NK) 

1010 LisI-1:C0=7' (OR) 

1020 IF 115 THEN LI=1-16:C0=48 (AQ) 

1030 PRINT FNCSCCO,LI):L:FNCS(CO+4,L1);":": :C0=CD+10' (BS) 
1040  RESTORE 3880:0SUB 3300:CALCCI, 1)=NUM:CO=C0+15 (C9) 
1050 RESTORE 3880:60SUB 3300:CALC(I,2)=NUM' (UV) 

1060 NEXT I' (EF) 

1070 $=1' CAN) 

1080 RETURN! (IX) 


1090 ‘' (6P) 
1100 ‘XXX MENU CALCULS *x4' (0H) 
1110 ‘' (61) 


1120 IF S=0 THEN PRINT CLS24:BEEP$:FNP$C"LES CALCULS SONT IMPO 
SSIBLES SANS SAISIE" 13):PRINT FNPS(M1$+"#",20):GOSUB 3720:RET 
URN' CWF) 

1130 PRINT FO$:CLS2$:RESTORE 3810:G0SUB 3460' (ZK) 

1140 OP3=AI' (GV) 

1150 IF 0P3=3 THEN RETURN ELSE ON 0P3 60SUB 1170,1690:607T0 113 
0" (PQ) 

1160 ‘ki Calcuis des Cash Flows *Xk' (H4) 

1170 IF CFN THEN 1260! (TJ) 

1180 MON=MON+BFOR:T=T/100" (BR) 

1190 FOR 1=1 TO N' (NU) 

1200 CALC(I,4)=CALCCI,13-CALC(I,2)' (F2) 

1210  CALC(I,5)=CCALC(I,4)-CALC(I,3))/2' (L3) 

1220 CALC(I,6)=CALCCI S)+CALCCI,3)' (66) 

1230 NEXT L' (GE) 

1240 CFN=1' (CEK) 

1250 'XK4 Affichage du tableau des Cash Flows ##4' (2€) 

1260 PRINT CLS2$' (PA) 

1270 PRINT F2$' (K2) 

1280 PRINT FNPSC"DONNEES INITIALES*,0)' (R2) 

1290 PRINT FNC$(22,7)"Montant de l'investissement": SPACES(8) ;U 
SING "HUM HE NU UMON' (U8) 

1300 PRINT FNC$(22,8):"(dont":BFDR:" de besoin en fds de roult 
4)" (TK) 

1310 PRINT FNC$(22,10):"Taux d'actualisation" FNC$(64,10) ;USIN 
G"HH# A": TXI00! (DH) 

1320 PRINT FNC$(22,12): "Valeur résiduelle nette" :FNC$(58,12);U 
SING HEHNEOMUE HU VR' (NE) 

1330 PRINT FNC$(22, 14) "Durée" :FNC#(61, 14) USING “## années" ;N 
" (OM) 

1340 PRINT FNP$(N1$+M3$,20)' C4D) 

1350 GOSUB 3720' (LK) 

1360 PRINT CLS$:F3$:FNC$(0,0):STRING#(90, 154); VNS:FNPS#(KI$+" T 
ABLEAU DES CASH FLOWS "+K1$,1):VF$" (7F) 

1370 PRINT FIS:FNCSCO,1):T$:FNC$C3,2)"ANS"SPACES(S)"RECETTES"S 
PACE#(6)"DEPENSES"SPACES(8)"E,B,E"SPACES(9)"DOTAT,"SPACESC5)"R 
ES,NETS'SPACESCS)"C,F,NETS":FNC#(0,3):T$:" (IX) 

1380 PRINT F2$' (LI) 

1390 FOR 1=1 TO N' (NW) 

1400 LI=I-1' (FY) 

1410 IF I)1S THEN LI=LI-15:IF 1=16 THEN PRINT FNC$(0,LI+15); 
TSFNPSCN1$+N3$, 20) :GOSUB 3720 PRINT CLS#' (EC) 

1420 PRINT FNC$(3,LID USING "##"l:' (16) 

1430 PRINT USING "+#####M#REE,H':CALC(I, 1): CALCCI,2) CALC(I 
H)'CALCCI,3):CALC(I,5):CALCCI 6)" (WP) 

1449 NEXT I' (6H) 

1450 PRINT FNC$(O,LI+1):T$:' (50) 

1460 PRINT FNP$("X Tapez & P > pour une sortie sur iaprinante 

ou une autre touche “+M2$,20)::60SUB 3720' (LV) 

1470 IF UPPERSCREPS)="P" THEN GOSUB 1500! (PP) 

1480 RETURN' (J1) 


1490 ‘ Edition du tableau à l'imprimante! (TU) 

1500 LPRINT CHR$(15)' (UV) 

1510 LPRINT STRINGS(132,"-"):LPRINTLPRINT' (11) 

1520 LPRINT SPCC51): "RAPPEL DES DONNEES INITIALES :":LPRINT:LP 
RINT' (8R) 

1530 LPRINT:LPRINT SPC(43) "Montant de l'investissement": SPACES 
(B):USING "HER HH#, RH MON! (7R) 

1540 LPRINT SPC(43):"(dont":BFDR:" de besoin en fds de roult,) 
"(SK 

1550 LPRINT'LPRINT SPC(43) "Taux d'actualisation" :SPC(23) :USIN 
G "##,# 4":TH100! (LG) 

1560 LPRINT'LPRINT SPC(43)' "Valeur résiduelle nette":SPC(13):U 
SING "HE#HR HE HU VRT (VE) 

1570 LPRINT:LPRINT SPC(43) : "Durée": SPC(34) USING "## années": N 
" (WI) 

1580 LPRINT'LPRINT' (KM) 

1590 LPRINT SPC(S5):"TABLEAU DES CASH FLOWS"' (18) 

1600 LPRINT:LPRINT SPC(22):T$:LPRINT SPC(24):"ANS'SPACES(SI"RE 
CETTES"SPACES(6)"DEPENSES"SPACES(8)"E,B,E"SPACES(9)"DOTAT , "SPA 
CESCS)"RES ,NETS"SPACES(5)"C,F,NETS":LPRINT SPC(22):T$' (EU) 
1610 FOR 1=1 TO N' (NR) 

1620 LPRINT SPC(24) USING "##":I'' (FT) 

1630 LPRINT USING "+H#RHHEEREER RU: CALCCI 1): CALC(I, 2): CALC( 
1,4): CALCCI, 3) CALC(I,S):CALCCI,6)' CYV) 

1640 NEXT I[' (GJ) 

1650 LPRINT SPC(22):T$' (27) 

1660 LPRINT:LPRINT' (XL) 

1670 RETURN' (J2) 

1680 ‘XXX Test de sensibilité #tX' (DI) 

1690 IF CFN=0 THEN PRINT BEEP$:FNP$("X IMPOSSIBLE SANS PASSER 
PAR LES CASH FLOUS #",28):FOR K=1 TO 2000:NEXT K:RETURN' (BD) 
1700 IF RII=1 OR DRC=1 THEN PRINT CLS2$:FNP$("TAUX DE RENDEMEN 
T INTERNE "+SPACES$(3)+"OU"+SPACES(3)+"PAY BACK PERIOD", 12) :FNP$ 
(CINCONCEVABLE",15):FNP$(MI$+M2$,20):GDSUB 3720:RET 
URN' (41) 

1710 IF CFN=2 THEN 2100 ELSE PRINT CLS2$:FNPS("PATIENCE,,,,,,, 
, JE CALCULE" ,12):CFN=2' (OK) 

1720 FOR 1=1 TO N' (NT) 

1730 CALC(I,7)=CALC(I,6)+(0,0BXCALC(I,1))' (P6) 

1740  CALCCI,8)=CALC(I,6)-(0,05XCALC(I 1))' (PA) 

1750 CALC(I,9)=CALC(I,6)-(0,0S#CALC(I,2))' (PD) 

1760  CALCCI,10)=CALC(I,6)+(0,05KCALCCI,2))' (QG) 

1770 NEXT I' (GN) 

1780 ‘#X3 Calcul VAN / TRI / IP #$4' (9U) 

1790 FOR K=1 TO 5' (ND) 

1800 FOR I=1 TO N' CNS) 

1810 VANCKI=VANCK)+CALC(I ,K+5)/(1+7T)°1" (OV) 

1820 NEXT l' (6J) 

1830 VANCK)=VANCK)+VR/CT4T)*N-MON' (JL) 

1840 RIP(K)=VANCK)/MON' COR) 

1850 FOR R=0,5 TO 0,01 STEP -0,01' (90) 

1860 TOP=0" (FJ) 

1870 FOR 1=1 TO N' (N2) 

1880 TOP=TOP+CALC(I,K+5)/(1+R)°1" (H4) 

1890 NEXT 1' (6Q) 

1900 VN=MON-VR/CC1+R)"N)" C3P) 

1910 IF TOP-UN ) O0 THEN 1950’ (3E) 

1920 TOP2=TOP' (M9) 

1930 NEXT R' (GU) 

1940 PRINT CLS2$:BEEP$:FNP$C"1 % } TRI, > 50 &",12):FNPS$ 
("Taux de Rendement Interne Inconcevable !",15):FNP$(M1$+M2$,2 
0):60SUB 3720:RII=1:RETURN' (F2) 

1950 IF TOP2=0 THEN 1940 ELSE R=RX100+((TDP-VN)/(TOP-TOP2)): 
TRI(K)=R' (18) 

1960 NEXT K' (GQ) 
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1970 ‘#X4 Calcul du Pay Back Period *X#4' (KV) 

1980 PBA=0:PBJ=0:CFCUM=0 :VI=MON - VR / (1+T)*N' (02) 

1990 FOR 1=1 TO N' (02) 

2000 CFCUM=CFCUM+CALC(I,6)/C14T)°1" (KC) 

2010 IF CFCUM > VI THEN 2050' (22) 

2020 CFC=CFCUM' (M2) 

2030 NEXT I' (60) 

2040 PRINT CLS2$:BEEP$:FNP$("Délai de Récupération du Capital 

Inconcevable !",15):FNP$(M1$+M2$,20) :GOSUB 3720 :DRC=1 RETURN" 

(00) 

2050 DI=CFCUM-CFC' CRK) 

2060 D2=VI-CFC' (L7) 

2070 PBA=I-1' (HS) 

2080 PBJ=365202/D1:1F PBA >= 1 THEN PBJ=INT(PBJ)' (25) 

2090 '##* Affichage Critere de Rentabilité Actualisé #kk' (IP) 

2100 PRINT F2$:CLS$' (TP) 

2110 PRINT FNP$C"CRITERE DE RENTABILITE ACTUALISE",0)" (17) 

2120 PRINT FNC$(17,8):"Valeur Actuelle Nette":SPACES(12):": "16 

PACESC3) USING "+ WHEOHUEO ME Cfrs)":VANCT)" CJK) 

2130 PRINT FNC#(17,11):"Indice de Profitabilité":SPACE#(10):": 

MiSPACES(9) USING "+###,###":RIP(1)' (80) 

2140 PRINT FNC$(17,14):"Taux de Rendement Interne" :SPACES(8):" 
!MSPACESC9) USING "+###,#HE CH)" STRICT)" (EM) 

2150 PRINT FNC$(17,17): "Délai de Récupération du Capital :"1P 

BA:" année(s} et":PBJ:" jour(s)"! (ST) 

2160 PRINT FNC$(24,18):"(Pay Back Period)"' (T7) 

2170 PRINT FNP$(M1$+N34,20) :GOSUB 3720' (MD) 

2180 PRINT FO$:CLS2$:F3$:FNCSCO 0): STRING (89,154): VNS:FNP#CK1 

$+" TEST DE SENSIBILITÉ DU PROJET "+K14,1):VFS$:FNPS(LF#+M1$+"p 

our page suivante ou "+M2$,2):' (UJ) 

2190 PRINT FIS:FNC$(0,0):T$:FNP$C"CASH FLOWS sous Hypothèses", 

D):FNCSC4,2)"ANS'SPACES(4)"+10% Recettes" SPACES(7)"-10% Recett 

es"SPACES(8)"+10% Charges" SPACE#(B)"-10% Charges" :FNC#(0,3):T$ 
1! (BN) 

2200 PRINT FS$:FNC$(0,0):T$:FNCS(0,4):T$:" (03) 

2210 PRINT FNCSCT DD" VSASN, :'SFNCSCT,2):"I,P,":GPACES(3)1 "1" 
MENCSOT 3DI"TR,I, :"' (E7) 

2220 FOR 1=2 T0 5' (NI) 

2230 PRINT FNC$C9+(1-2)#22,1) USING "+#8 HER HRU VANCI)' 
(BA) 

2240 PRINT FNC$CI5+C1-2)422,2) USING "+R HR" RIPCI)" (BF) 

2250 PRINT FNC$C13+(1-2)422,3) USING "+H## #4 N'STRICI)" (7 

K) 

2260 NEXT [' (GI) 

2270 J=0' (AQ) 

2280 PRINT F4$' (L3) 

2290 FOR I=1 TO N' (NW) 

2300 J=J+1' (DU) 

2310 IF J}1S THEN J=1:G0SUB 3720:PRINT CLS$' (VH) 

2320 PRINT FNC$C4,J-1) USING "##":l:' (IQ) 

2330 FOR K=7 TO IO:PRINT USING SPACES(8)+"44###, HAE RM: CALC 
CL,KIM:NENT K' (11) 

2340 NEXT [' (6H) 

2350 GOSUB 3720' (LV) 

2360 PRINT F3$:FNC$(0,2):LF$:FNP$("Voulez-vous une sortie sur 
imprimante ? (0/N)",2)' (VE) 

2370 GOSUB 3720' (M0) 

2380 IF UPPERSCREPS)="0" THEN GOSUB 2410' (PQ) 

2390 RETURN! (72) 

2400 '#K4 Edition TRI, VAN, Pay back period ##k' (V7) 

2410 LPRINT CHR$(15)' (U) 

2420 LPRINT STRINGS(132,"-")'LPRINTLPRINT' (12) 

2430 LPRINT SPCIS1):"CRITERE DE RENTABILITE ACTUALISE :":LPRIN 
T'LPRINT' (67) 

2440 LPRINT SPC(38): "Valeur Actuelle Nette":SPACE#(12):":": GPA 


CES C3) USING "+Hh HE EH Cfrs)":VANCT)" (1) 

2450 LPRINT:LPRINT SPC(38):"Indice de Profitabilité":SPACES(10 
Ji: SPACES(S) USING "+##, MH" :RIP(T)' (LA) 

2460 LPRINT:LPRINT SPC(38):"Taux de Rendement Interne": SPACES( 
8):": M SPACES (9) USING "+R ### CH" :TRICI)" (R3) 

2470 LPRINT'LPRINT SPC(38): "Délai de Récupération du Capital 
!":PBA'" années) et":PBJ:" jour(s)"' (17) 

2480 LPRINT SPC(45):"(Pay Back Period)" :LPRINT'LPRINT:LPRINT' 
(22) 

2490 LPRINT SPC(S1):"TEST DE SENSIBILITE DU PROJET"! (ET) 

2500 LPRINT:LPRINT SPC(21):T$:LPRINT SPC(53): "CASH FLOWS sous 
Hypothèses": LPRINT:LPRINT SPCC25)"ANS"SPACES(6)"+10% Racettes" 
SPACE#(7)"-10% Recettes" SPACE#(8)"+10% Charges"SPACES(8)"-104 
Charges" :LPRINT SPC(21):T$" (VK) 

2510 FOR I=1 TO N' CNR) 

2520 LPRINT SPCC25): USING "##":l1' (FU) 

2530 FOR K=7 TO IO:LPRINT USING SPACESCB)+ "4 HARAS HM CAL 
CCI,K)::NEXT K' (30) 

2540 LPRINT' (IS) 

2550 NEXT I' (GK) 

2560 LPRINT'LPRINT'LPRINT SPC(21):T$" (SP) 

2570 LPRINT SPC(22): "VAN, ('IUSING "+4, REA HA" SPACES(8 
)'VANC2):VANC3) : VANC4): VANCS)' (TG) 

2580 LPRINT SPC(22):"I,P,  :":USING SPACES(G)+"+#HE, HAN" +SPAC 
E$CB):RIP(2) RIP(3):RIP(4):RIP(S)" (OH) 

2590 LPRINT SPC(22): "TRI, :'USING SPACES(A4)+"+##E HER 4"+SP 
ACES$(B):TRIC2):TRIC3) TRIC4): TRI(S)' (SL) 

2600 LPRINT SPC(21):7$' (22) 

2610 LPRINT'LPRINT' (XH) 

2620 RETURN! (IV) 


2630 ‘' (6Q) 
2640 '#KX SAUVEGARDE DES DONNEES ##X' (J2) 
2650 '' (65) 


2660 IF S=0 THEN PRINT FNP$C"SAUVEGARDE IMPOSSIBLE SANS SAISIE 
",28):FNP$CM1$+"4" 30): :GOSUB 3720:RETURN' (RA) 

2670 IF SA=1 THEN PRINT FNP$C'SAUVEGARDE DEJA FAITE",28):FNP$C 
“X Tapez € I > pour ignorer ou une autre touche pour annuler#" 
,30)::60SUB 3720:IF UPPERS(REP#){)"I" THEN RETURN! (VX) 

2680 ON ERROR G0TO 2820' (26) 

2690 PRINT CLS2$' (PI) 

2700 PRINT FNP$C"SAUVEGARDE DES DONNEES" 0)' (2V) 

2710 PRINT FNC$C5,12):"Nom du fichier : ":'LINE INPUT NS 'N$=LE 
FT$CNS,8)+", INV®! (DX) 

2720 IF FIND$CN#)<)"" THEN PRINT FNP$C"X Ce fichier existe déj 
à ! #",25):60SUB 3630 RETURN! (UX) 

2730 OPEN "O",#1,N$' (Q7) 

2740 VRITE #1,MON,BFDR,N,T,VR' (CQ) 

2750 FOR I=1 TO N' (NX) 

2760 WRITE #1,CALC(I,3),CALC(I 2) ,CALCCI,1)' CUB) 

2770 NEXT I' (60) 

2780 CLOSE #l' (1J) 

2790 SA=1' (00) 

2800 GOSUB 3640' (L2) 

2810 RETURN' (12) 

2820 PRINT BEEP$::IF ERR=61 THEN PRINT FNP$C"X Disque plein " 
,25) ELSE IF ERR)49 AND ERR<77 THEN PRINT FNP$C"X ERREUR en Ec 
riture de Fichier #",25) ELSE PRINT FNP$C"X ERREUR N°"4STRS(ER 
R)+" Ligne n'"+#STR$(ERL)+" : Voir Livre 2 p,353-358",25)' (KJ) 
2830 GOSUB 3630:RESUME 2800 (66) 


2840 '' (6T) 
2850 'XK4 SAISIE SUR DISQUE X44' (94) 
2860 '' (6V) 


2870 IF S=1 THEN GOSUB 3090:1F REP=27 THEN RETURN' (69) 
2880 ON ERROR GOTO 3040" (2D) 
2890 PRINT CLS2$' (PK) 


L'OUTIL FINANCIER + L'ECHO DU PCW N°12 


2900 PRINT FNPS("SAISIE SUR DISQUE" ,0)' (QS) 

2910 PRINT FNP$("Voulez-vous la liste des fichiers ,INV exista 
nts sur le disque ? (0/N)",10)::G0SUB 3720' (TM) 

2920 IF UPPERSCREPS)="0" THEN PRINT FNC#(0,12)::DIR #,INV' CHK 
} 

2930 IF UPPERSCREPS)="0" THEN PRINT FNP$(M1$+M3$,23):GOSUB 372 
Q" (QE) 

2940 PRINT FNCSCS,8):EFP#:"Nom du fichier : "::LINE INPUT NS” 
(HO) 

2950 OPEN "I", #1,LEFTS(N$,8)+",INV"" (FF) 

2960 INPUT #1,MON,BFDR,N,T,VR' (C2) 

2970 FOR 1=1 TO N' (01) 

2980 INPUT #1,CALCCI,3),CALCCI,2),CALC(I,1)' (UK) 

2990 NEXT l' (6S) 

3000 CLOSE #l' (15) 

3010 S=1:SA=1 :CFN=0:RII=0:DRC=0' (FU) 

3020 GOSUB 3640' (LU) 

3030 RETURN' (IU) 

3040 PRINT BEEP$::IF ERR=53 THEN PRINT FNP$C"X Fichier Inexist 
ant #",25) ELSE IF ERR)49 AND ERRÇ77 THEN PRINT FNP$("X ERREUR 
en Ecriture de Fichier *",25) ELSE PRINT FNP$("X ERREUR N°"+$ 
TR$CERR)+" Ligne n'°"+#STR$#CERL)+" : Voir Livre 2 p,353-358",25) 
! (NT) 

3050 GOSUB 3630:RESUME 3020". (SW) 

3060 '' (60) 

3070 ‘##t CONTROLE SAUVEGARDE / SAISIE X#4' (T3) 

3080 ‘' (60) 

3090 PRINT CLS2#:FNPSC"ATTENT 
3100 PRINT FNPSCSUPPRESSI 
ESS "D ONNEES",16)' (78) 
3110 PRINT FNP$("Tapez € EXIT } pour annuler l'ordre, ou { RET 
URN > pour Confirmer" ,28)' (20) 

3120 REPS=INKEYS:IF REP$="" THEN 3120 ELSE REP=ASC(REPS)' (65) 
3130 IF REPC)13 AND REP<)27 THEN 510' (H9) 

3140 IF REP=27 THEN RETURN' (6B) 

3150 FOR 1=1 T0 N' (NS) 

3160 FOR J=1 TO 10' (0D) 

3170 CALCCI,J)=0" (NV) 

3180 NEXT J' (GL) 

3190 NEXT !' (GL) 

3200 FOR I=1 T0 5 : VANCI)=0:TRICI)=0:RIPCI)=0 : NEXT I' (SR) 
3210 S=0:SA=0 :VI=0:VR=0:VN=0 :CFC=0 : TOP2=0" (XK) 

9220 RETURN' (IV) 

3230 RENE EEE NNOUNEENEEET (25) 

3240 ‘ SOUS - PROGRAMMES" (2C) 

3250 'AXIEREMEEEL EEE EEENEEEXT (27) 

3260 ‘' (60) 

3270 ‘Xkt MODULE DE SAISIE DE VALEURS NUMERIQUES #xx' (B9) 
3280 ‘' (65) 

3290 READ CO LI' (N1) 

3300 READ LONG,CMAK' (VB) 

3310 NUMS="":AI=0" (P9) 

3320 PRINT FNC$(CO, LI): NS: SPACESCLONG):VF$:SPACES(2) :VN#;' (Q 
2) 

3330 VHILE AI<)13' (Q2) 

3340 LELENCNUMS) PRINT FNC$(CO+L LI): (PR) 

3350 AIS=INPUTS(1)"AI=ASCCAIS) IF CAI=8 OR AI=127) AND L)0 THE 
N NUMS=LEFTSCNUMS L-1):PRINT FNC$CCO,LI)NUMS" *:" (TO) 

3360 TEST=INSTR(" 1234567890," ,AI$)' CHF) 

3370 IF TEST=11 AND L=0 THEN L=1:AI$="0,"" (07) 

3380 IF TEST THEN NUMS=NUMS+AIS$:L=L+1:IF L<=LONG AND VALCNUMS) 
{=CMAX THEN PRINT AIS: ELSE PRINT FNC$(CO,LI)SPACES (LONG) : : NUM 
g=""" (AH) 

3390 VEND' (ES) 

3400 NUM=VAL(NUMS$)' (U4) 


0 N",12):BEEP$' (09) 
N 


I 
D N'+SPACES$(S)+"D E S*+SPAC 


3410 PRINT FNCS(CO,LI):VF$: IF NUMC=0 THEN PRINT LF$ ELSE PRIN 
T USING US$ NUM' (LD) 
3420 RETURN' (IX) 


3430 '' (6P) 
3440 ‘XXX GESTION DES MENUS *#4' (9N) 
3450 '' (6R) 


3460 PRINT CLS$CF$' (ST) 

3470 PRINT FNC$C1,0)"CHOIX D'INVESTISSEMENT" :FNC#(67,0)CHRS( 16 
4)+" L'Echo du PCW - 1987":" (VL) 

3480 PRINT FNC$(0,1)STRING#(90,154)' (10) 

3490 READ LIM,BRN,TITRES' (4K) 

3500 PRINT FNP$SCTITRES,BRN-5)' (CA) 

3510 FOR I=1 TO LIM' (RW) 

3520 READ MENÜS(I)' (RD) 

3530 PRINT FNP$S(MENUSCI) ,BRN+2#1)' CHE) 

3540 NEXT I' (GK) 

3550 PRINT FNC$(60,BRN+2+241)"Votre choix ?":' (CZK) 

3560 IS$=INPUT$(1):AI=ASC(I$)-48" (CT) 

3570 IF AI1 OR AIDLIM THEN 3660! (B1) 

3580 PRINT AI:FOR K=1 TO TO0:NEXT K' CIX) 

3590 RETURN' (J5) 

3600 '' (60) 

3610 ‘XX4 Désactivation du traitement d'erreur Xxt' (A9) 

3620 '' (60) 

3630 PRINT FNP$(M1$+M3$,28): :GOSUB 3720 CLOSE :SA=0:RETURN' (NZ 
) 

3640 ON ERROR G0TO O,RETURN' (92) 

3650 '' (6T) 

3660 'XXY Affichage du bas d'écran de saisie *#Xk' (VI) 

3670 '' (6V) 

3680 PRINT F3$:CLS$:PRINT FNC$(0,O)STRING$(90, 154): PRINT FNC$( 
0,2)"< RETURN > pour valider": :PRINT FNC$(67,2)"€ "CHR$(27)CHR 
$C11)"DEL > pour corriger":' (QN) 

3690 RETURN' (J6) 

3700 '#KX Attente d'une touche *kt' (EL) 

3710 '' (60) 

3720 REP$=INPUT$C(T):RETURN' (96) 

3730 '' (65) 

3740 '#XX DONNEES kx4' (SD) 

3750 '' (BU) 

3760 DATA L'Echo," "du," ",P,C,W," "vo,u,s," "pré, 
s,e,n,t,e' (T6) 

3770 DATA I N,V,E,S,T,+' (2B) 


3780 DATA 3,15,HE N U PARENT PAL Saisies ie 


ose ols CALCUL enr TT 2,Quitter,,,,,,,,,,, a 3 
! (03) 

3790 DATA 4,13,MHENU DE SAISIE, Données du disque 
voss.l Données du clavier, ,,,,,,2 Sauvegarde des données, 
3,Menu principal,,,,,,,,,,,4' (42) 

3800 DATA 2,8,TYPE D'AMORTISSEMENT DE L'INVESTISSEMENT Anortis 
sement linéaire, ,,,,,,,,,,1,AUÈPE,,,,,,4, 4e uussoesicrocuous sd 


(PQ) 

3810 DATA 3,IS,MENU CALCUL S,Cash flous nets... 
ceroere 1 VAN / TRI / PAY BACK PERIOD, , ,2,Menu principal 
dues 2 00) 

3820 DATA 67,8,8,999999,91#' (21) 

3830 DATA 67,10,7,99999,91' (OM) 

3840 DATA 67,12,2,30' (RG) 

3850 DATA 67,14,4,99,91001' (22) 

3860 DATA 8,999999,94' (TR) 

3870 DATA 71,12,8,999999,9k' (1V) 

3880 DATA 10,99999999,98' (4) 


CRE 
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PROGRAMME BASIC 











DEBUTANT 





a Pensez à faire systématiquement deux types de 


VERIFICATEUR B-12 


LA VTAMINE DU SAÏSISSEUR DE FOND ! 




















Les | sont-ils des 1 ? Par Vincent LEDOS 
Les GOTO sont-ils des GOSUB ? Allons-nous, 
frères Echoistes, continuer longtemps à nous 
arracher les cheveux à la saisie des ces 
superbes programmes que nous offre l'Echo ? 
Non ! Non ! et Non! 

Pour que cela cesse enfin, voici B-12, 

le vérificateur vitamine à l'usage des 
mauvais en thèmes, des nuls en versions 

et des myopes géniaux... 














Ecrit en basic et en assembleur, B-12 est d’un 
genre nouveau. Il ne se contente pas de trouver 
le codage des lignes, mais plus, il l’ajoute 
automatiquement en fin de ligne. 

Pour éviter de perturber le déroulement du 
programme, le code est placé à la suite de 
l’apostrophe qui en basic correspond à 
l'instruction REM. 


B-12 : SAISIE DU PROGRAMME 

Le programme est à saisir en basic sans entrer les 
codes de fin de ligne. 

Exemple : la ligne 520 GOTO 450’ (H5) est 
saisie par 520 GOTO 450 

Si vous éprouvez la moindre difficulté à saisir ce 
programme l'annexe de la page 56 vous y aidera 
ainsi que l’Initiation basic de Patrice Bihan 
(même numéro). 














B-12 : UTILISATION 


Une fois que toutes vos lignes sont saisies et bien 
vérifiées (promis, c’est la dernière fois !) sauvez 
le programme, une fois normalement par SAVE 
“VERIF‘‘ [RETURN] et une fois en ASCII par 
SAVE ‘‘VERIF2‘‘,A [RETURN]. 

Si tout est correct, le programme vous propose 
d'entrer le nom du programme à vérifier ce que 
vous faites en entrant VERIF2 [RETURN]. 

Les numéros de lignes se succèdent à l'écran et 
le programme s’interrompt pour indiquer qu'il a 
terminé. 

Vérifiez la qualité de son travail en rechargeant 
la version ASCII qui vient de passer à la 
moulinette par LOAD ‘‘VERIFZ‘‘ [RETURN]. Le 
listage par LIST doit afficher les lignes suivies 
des mêmes codes que ceux mentionnés sur 
listing de la page de droite. Si ce n’est pas le cas, 
mieux vaut corriger les lignes défaillantes (là où 
le code n’est pas le même) (voir tableau 1). 


VERIFICATEUR B-12 


B-12 ne code que les programmes sauvés ASCII 
par l’ajout de A à la suite du nom de fichier. 
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sauvegarde avec deux noms distincts pour vos 
premiers essais. 


Sauvegarde ASCII par SAVE ‘‘NOM DU 
PROGRAMME‘‘,A [RETURN] 
Sauvegarde normal par SAVE ‘‘NOM DU 
PROGRAMME‘: [RETURN] 


Lancement de B-12 par 

RUN ‘‘VERIF‘‘ [RETURN] 

Entrée du nom du programme à coder par 
NOM DU PROGRAMME [RETURN] 
Chargement de la version codée par 

LOAD ‘‘NOM DU PROGRAMME‘ [RETURN] 
et comparaison des codes obtenus avec ceux du 
journal par LIST [RETURN] 


Dans le cas où la première saisie est vraiment 
fausse, il se peut que le programme se plante et 
que la version ASCII soit irrécupérable. Pas de 
panique, nous en avons fait une sauvegarde 
normale sous le nom MODIF. Nous pouvons 
donc la récupérer par LOAD ‘‘MODIF‘‘ 
[RETURN] recommencer la vérification (sans 
vérificateur) et les corrections effectuées 
recommencer la procédure que je viens de décrire. 


B-12 : CAS PARTICULIERS 


Comme le programme ajoute 6 caractères à chaque 
ligne il est bien évident que toute ligne de longueur 
égale ou supérieure à 249 ne pourra accepter le 
codage. Pour régler ce problème, le programme 
affiche le numéro de la ligne et l'accompagne du 
message ‘‘Trop longue pour mettre le code‘ suivi 
du code qui aurait dû être ajouté à la ligne. 

Dans le codage de chaque ligne sont exclus les 
espaces et les tabulations dont la quantité n'intervient 
jamais sur la bonne marche du programme. 















U URG #D000 ! DEEUT DE LA ROUTINE EN #0000 : 
foie 


4e ! LD E,CHL) 1 & = LONGUEUR DE LA CHAINE 










Oui 


' 
Le { 
1 23 1 INC At ! ! 
: ! LD E,CHL) l 
1 INC HU ! l 
1 LO DHL: i ! 
1: ' ! 
21 0060 L LOL, ! MET LE COMPTEUR À 0 Û 
: 06 O1 1 LO €#D100) ,HL 1 
1: û \ 
| EX DE,HL U HU = ADRESSE DE LA CHAINE 
! ! ' 
! LD A,CHL l A = CUDE DU CARAC À ANALYSER : 
1: 1 i 
CF l ESI-CE UN ESFACE ? 
IR 1 NON : TEST SUIVANT 
1 
' 


: CODE = 0 













EST-CE UNE TAEULATION : 
OUI : CODE = à 














! EST-CE ‘'a' ? 
! NON : TEST SUIVANT ! 
{ OUI : CODE = ‘4’ 













! ESi-CE ‘'e' : û 










2, #DOZS 









DIR NE ! NON : TEST SUIVANT ! 
i LO A,63 1 QUI : CODE = 'E' 0 
IR #D03E 
ll ! 4 
\ CF 126 1 EST-CE 'e' : Û 
UIR Z,#D0ZS { QUI : CODE = 'E" ! 
là ! ! 
| CF 144 | EST-CE ‘à’ * ! 
VOIR NE,#D03S { NON : TEST SUiVANT ! 
! LO A,85 ! OUI : CODE = ‘u" ! 
U IR KDO03E ! ! 
Pos ï i 
1 CF 92 | EST-CE 'ç' ? ! 
VU JR NE, #003E ! NON : SUITE ! 
! LD A,€7 1 QUI : CODE = 'C' ! 
fa 1 nl 
! FUSH EC ! 
U PUSH HL ! 
i LD &,0 ; ! 
! LD C,A ! 1 
ï LD HL,C#D100) ! ! 
! ADD HL,EC Î AJOUTE LE CODE AU COMFTEUR U 
1! LD C#DIOG) ,HL ! ! 
! POP HU ! ! 
! FOP EC ! ! 
i D043 Dee ! ! 
1 0043 23 [INC HL ! FASSE AU CARACTERE SUIVANT ! 
19 Co 1 DINZ #D00C ! ‘ 
[l 1 





C3 RET FIN DE LA ROUTINE ! 











PROGRAMME BASIC 


M à 7 ei + | 


B-12 : LA ROUTINE ASSEMBLEUR 


En pur Z-80, la routine de 78 octets est implantée en 
D000h par le chargeur inclu dans le programme B-12. 
Son organisation est suffisamment claire pour que je 
vous la retrace succinctement. Pour commencer, elle 
charge en B la longueur de la chaîne (en l'occurence 
la ligne) pointée par l'adresse contenue dans HL. 
Ensuite, une boucle est faite et la chaîne est analysée 
caractère par caractère de façon à ce que toute les 
minuscules et les accents existants interviennent 
comme s'ils étaient des majuscules ou des lettres non- 
accentuées. Ces tests faits, le programme ajoute le 
code du caractère à HL qui le sauve à l'adresse 
D100H pour continuer jusqu’au dernier et retourner 
au programme basic qui le récupèrera. 


B-12: CONCLUSION 
Le cauchemar est terminé. Plus aucun programme 
Basic ne pourra passer au travers de 
cet impitoyable mouchard à qui 
l'on ne risque plus de faire 
prendre les saisies pour 

des lanternes ! 





LREN HER EEE ER EEE EEE" (27) 
2RM*XVERIFICATEURX! (27) 
3 REM * 8-12 *X' (FX) 
BREMX Par Vincent Ledos  *' (6P) 
SREM X*X Pour l'Echo du PCW *' (54) 


GREMX  LOGI'STICK 87 à! (X9) 
T REN RÉREKELEEERREENEEREEEET (3D) 
8 REM' (TU) 

1Q REM =". Un) 

20 REMY? VERIFICATEUR Xtt' (57) 

9 REM = (OL) 

40 REM' (94) 


50 ESCS=CHR#(27) 

} 

60 CLS$=ESCS+"H"+ESC$+"E"+CHRS (13) 
r l'écran! (VT) 

70 C$="0123456789ABCDEFGHIJKLMNOPQRSTUVYXY2"' (7V) 

80 DEF FN T$(C)=MID$(C$,C+1,1) ‘ Transforme une valeu 
r en son code' (UN) 


! Séquence ESCAPE' (HP 


! Variable pour efface 


90 ROUT=8HD000 ! Adresse de la routin 
e LH' (TH) 

100 MEMORY ROUT-1 ! Fixe HIMEM' (CL) 

110 FOR N=0 T0 76:READ 0$ ! Lit les 77 codes de 
la routine ,,,' (HV) 

120 POKE ROUT+N, VAL("&H"40$):NEXT N et les POKE en ménoi 
re' (NK) 

130 DATA 46,23,6E,23,66,21,00,00,22,00 ‘ Codes de la routine 
LH! (HW) 


MO DATA D1,EB,7E,FE,20,20,04,3E,00,18' (IF) 
180 DATA 26,FE,09,28,F8,FE,40,20,04,3E' (IL) 
160 DATA 41,18, 1A,FE,78,20,04,3E,45,18' CHT) 
170 DATA 12,FE,70,28,F8,FE, 7C,20,04,3€' (JM) 
180 DATA 55,18,06,FE,5C,20,02,3€,43,C5' (HV) 
190 DATA E5,06,00,4F,24,00,D1,09,22,00' (&V) 
200 DATA DI,ET,C1,23,10,C0,C9' (54) 


51 


210 PRINT CLS$:"VERIFICATEUR : Réalisé par Vincent LEDOS pour 
L'ECHO du PCW":PRINT STRINGS(12,"""):PRINT' (OK) 

220 PRINT "BUT: Cet utilitaire permet de marquer chaque ligne 
d'un programme avec deux codes résul-tant de la conposition 
de cette ligne, Ces codes pernetteront de retrouver plus rapid 
enentune erreur que l'on aura faite en copiant Le progranne,"' 
(W4) 

230 PRINT'PRINT "Le programme à analyser doit ètre sauvé sous 
forme ASCII ,":PRINT:PRINT' (B8) 

240 LINE INPUT “Non du programme (sans le type ‘,BAS') : "TS" 
CMV) 

250 IF T$="" THEN PRINT CLS$::END' (F1) 

260 IF FIND$CT$+" BAS")="" THEN PRINT:PRINT "Ce programme n'ex 
iste pas, ou n'est pas Basic, Recommencez, , ,"'CHR$(7)::FOR N=] 
TO 3000:NEXT:60T0 210' (LK) 

270 T2$=T$+", BAS" 

ersion' (02) 

280 TI$=T$+",BAK" 

rsion' (X2) 

290 IF FIND$(TI$)€)"" THEN KILL TI$' (E2) 

300 NAME T2$ AS T1$ ! Change le nom du pro 

gramne' (06) 

310 PRINT:PRINT' (RS) 


! Non de la nouvelle v 


" Non de l'ancienne ve 


320 OPEN "I" ,1,TIS:OPEN "0" ,2,T2$ ! Ouverture des 2 fich 
iers' (KS) 

330 VHILE NOT EOF(1) "Tant qu'il y à encor 
e des lignes ,,,' (HN) 

340 LINE INPUT #1,L$ " Lit La ligne à coder 
! CRT) 

350 PRINT CHR$(13): "Ligne": VAL(LS): "Affiche son nunéro' 
(IE) 


360 IF LEN(L$)>6 THEN IF MIDS(LS,LENCLS)-5,3)="' (" THEN L$=LE 
FT$(L$,LEN(LS)-6)' (75) 

370 ! Elinine les codes dé 
jà présents' (PA) 


380 2$=UPPER$(LS):CALL ROUT(Z$) " Exécute la routine L 


M' CIK) 

390 C2(PEEK(&HD100)+256#PEEK(&HD101))  ‘ Lecture du code tota 
l' (MD) 

400 C=C MOD 1296 ‘On en prend Le modul 
o 1296! (SC) 

410 CI=INT(C/36):C2=C-364C1' (44) 

420 CODES=FN T$(CI)+FN T$(C2) ! Transforme le code e 
n 2 caractères ,,,' (XS) 

430 IF LEN(L$)»249 THEN 510 ! Ligne trop longue =) 
pas de codes' (N7) 

440 L$=L$+"" C"+CODES+")" " Et les ajoute à la ! 
igne Basic' (9$) 

450 PRINT #2,L$ " Stocke la nouvelle 1 
igne avec les codes' (J1) 

460 VEND ‘ Passe à la ligne sui 

vante' (LJ) 

470 CLOSE " Fermeture des fichie 

rs' (LC) 


480 PRINT:PRINT' (S0) 

490 PRINT "Codage des lignes terminé," ‘ Message final' (H3) 
500 END' (A4) 

510 PRINT "Trop longue pour pouvoir mettre le code ("CODES")' 
(SF) - 

520 @0T0 450' (HS) 
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NOUVEAU ET GENIAL !!! 


L'Invention de l’année 1986 est enfin disponible sur les meilleurs écrans. 
C'est par les mains de Richard PERRY directeur de ROLLS ROYCE 

que le premier prix de 50.000 F a été décerné 

à THINGI comme étant la meilleure 

invention de l’année. 


Pourtant THINGI est d'une extrême simplicité qui n’a d'égal que son 
utilité. Jugez plutôt : Fixé sur le dessus de l'écran, par une bande de 
velcro, THINGI se pose, s'oriente et s'enlève à volonté. THINGI peut 
tenir, sans défaillir, une charge de plus de 500 grammes ou l'équiva- 
lent de 150 pages !!! THINGI libère les bureaux de tout autre support 
encombrant et cher. 


THINCI c'est à gauche ou à droite 
il suffit de le demander ! 
THINCI est le cadeau idéal 
qui étonne et plaît. 
THINGI c'est demain 
chez vous parce que 
c'est aujourd’hui 
chez tous les \ ai À 
bons revendeurs Or tt ) Pour en savoir plus 
de micros. CE 
appelez la THINGI LINE 
au (1) 48 67 89 54 


LA ñ 
) Ps » 


encore une 
bonne idée 


JE 





O O O © AZERTY 







cours complet de dactylographie 
pour la maîtrise du clavier Azerty 


une méthode unique 
comprenant plus de cent exercices 
progressifs en rythme et en difficulté 


Mettez toutes les chances de votre côté avec AZERTY 
c'est un logiciel LOGI’STICK distribué par D.D.I. 
en vente chez votre revendeur spécialiste PCW 
Renseignements (1) 48.67.28.44 + 


UNIBET ROUTE 









Du LOCOSCRIPT à MULTIPLAN, chacune des 
applications que nous avons quotidiennement 
l'habitude d'utiliser se trouve enregistrée sur nos 
chères disquettes et en occupe un espace précis. 
Pour aller encore plus loin, nous dirons que ces 
applications créent elles-mêmes des fichiers qui 
occupent à leur tour une place tout aussi précise. 
Cette notion qui, au premier abord, semble 
évidente, ne l’est pas toujours au niveau de la 
pratique. C’est justement ce que nous allons 
approfondir dans ce nouveau rendez-vous... 









Rappel indispensable. 


Notre premier article nous a appris que le CP/M 
gérait l’organisation des disquettes et de la 
mémoire et qu'il ne pouvait en aucun cas 
affecter moins d’un kilo-octet à un fichier. 


Mais vous êtes en droit de vous demander ce 
que signifie vraiment le terme fichier. En 
informatique, le terme fichier désigne une masse 
de données précisément identifiable par trois 
éléments qui le caractérisent exactement. Son 
début, sa fin et son nom. 


Le contenu est mis de côté car quelqu'’en soit 
l'organisation, la destination ou l'origine, un 
fichier est toujours constitué de codes occupant 
systématiquement un octet chacun. L’octet sert 
donc d'unité de mesure relatif à la taille d'un 
fichier et son multiple est le kilo-octet (abrégé 
Ko) qui vaut 1024 octets. 


Un programme est un fichier, un texte tapé sous 
LOCOSCRIPT est un fichier, un tableau 
MULTIPLAN est un fichier, et un fichier 

DBASE est aussi un fichier. 


Pour résumer cette pensée je dirais ‘Tout n'est 
que fichier !‘* et comme j'ai de la suite dans les 
idées j'en rajouterais en vous disant ‘‘Tout 
fichier est plein d’octets !‘*. 


La synthèse de ces précédentes notions pour 
arriver à cette conclusion : CP/M ne gère les 
fichiers que par tranche de 1 Ko. Donc un 
fichier contenant entre 1 et 1024 octets occupe 
1ko sur la disquette et s’il en occupe 1025, on 
passe à la tranche suivante soit 2 ko etc... 


Stockage physique et mémoire... 


Pour éclaircir mon propos et éviter toute 
confusion dans nos rencontres ultérieures je me 
dois de vous communiquer une distinction 
importante. 


La disquette, en temps que support physique, 
peut contenir plusieurs fichiers de taille variable 
et, comme nous en avons vu le détail le mois 
précédent, impose au système d'exploitation 
(CP/M dans notre cas) une gestion rigoureuse 
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COMPRENDRE CIM (1 


FICHIER, PLACES UTILES ET 
Sms QUIILS CIM 









INITIATION 





et surtout rapide de chacun des fichiers. Donc 
en se limitant à des blocs de 1 ko, le système se 


simplifie la vie. 


Le stockage n'étant pas la seule fonction du 
CP/M, il se charge aussi de transférer le contenu 


d'un fichier 
dans sa 
mémoire pour 
l'utiliser. 

Je rappellerais, 
pour mémoire, 
le principe 

du chargement 
d'un 
programme. 
On tape son 
nom, CP/M 

le cherche sur 
la disquette, 

le lit et le 
recopie dans 
la mémoire 
pour qu'il 
s'exécute. La 
mémoire ne 
contient qu'un 


seul programme, parce que CP/M est incapable 


Mémoire 


Fichier Il 


toto +— Block 


173 Ko 











Encadré 1 


d'exécuter 2 programmes à la fois (Exemple 
BASIC et DBASE ou MULTIPLAN et 
TOMAHAWK). Par conséquent, la gestion d’un 
fichier et plus précisément d’un programme se 
fait à l’octet près. 


Exemple : un programme faisant 125 octets de 
longueur occupe en mémoire 125 octets alors 
que sur le disque la place qui lui est réservée est 
de 1Ko soit 1024 octets. 


Maintenant que vous connaissez l'unité de 
mesure de taille et la façon dont chaque partie 
s'en débrouille, il ne reste plus qu’à connaître 
les outils nécessaires à des opérations aussi 
diverses que passionantes.… 


Les outils CP/M... 


Pour vraiment maîtriser l’espace, il faut poser le 
problème et se servir des outils que le CP/M 
propose pour y arriver. 
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UTILISATION CP/M 











La première interrogation peut être relative à la 
place occupée par un ou plusieurs fichiers sur 
une disquette placée en A:, en B: ou mémorisé 
en lecteur virtuel M: (qui fonctionne comme une 
disquette ne l’oublions pas). 


La seconde peut concerner la place disponible 
sur chacun des supports (A:, B: ou M:). 


Enfin la troisième coule de source : ce qui se 


passe en cas de problème. 






Encadré 2 






LA 

A: J14FCPN3 ENS : DISCKIT COM : BASIC CON : DIR CN : © CON 
! : PALETTE ! PAPER CH :P CN 
“D RE EN : EAU ON : COIN : Kms C2 
À: ! ! a: 1 i CN 
Û ! : UB : 







Ve 


Taille des fichiers : DIR.COM 


Nous entâmons maintenant une face d’expéri- 
mentation qui impose la mise en route du PCW 
et l'entrée en service du CP/M que vous insérez 
en mettant la face 2 du côté de l'écran. A 
l'apparition de ’A) ” nous savons que CP/M est 
prêt à nous suivre sur le chemin de la 
connaissance. 























Dans le volet précédent de notre initiation nous 
avions découvert que certains ordres étaient 
intégrés à CP/M et qu'ils ne nécessitaient aucun 
programme pour pouvoir fonctionner. Ces 
ordres étaient dit ‘‘résidents"” et celui qui nous 
intéresse maintenant en fait partie. Il s’agit de 
DIR qui peut nous donner le contenu d’une 
disquette. Malheureusement l’ordre DIR intégré 
au CP/M n'est pas très performant car il ne sait 
rien faire de mieux que de nous donner les 
noms des fichiers sur le disque concerné. 

Pour cette raison, les concepteurs du CP/M ont 
ajouté un programme supplémentaire qui stocké 
sur la disquette peut ou non être présent lorsque 
la fonction est appelée. 

Ainsi, si nous tapons DIR [RETURN] avec la 
face 2 du CP/M dans le lecteur nous verrons 


Encadré 3 s'afficher la liste suivante (voir encadré 2). 










(DIR °SIZES 
Scanning Directory... 
Sorting Directory... 







directory For Drive À: User € 


CON 28k 
CON  10k 





15k CON 







El 





SETL 
SUBNIT 6k 


17%k Total Records = 1306 Files F 
17% Used/Max Dir Entries For Drive À 










eo 
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Nous voyons que le programme DIR.COM est 
présent sur la disquette et semble faire double 
emploi avec le DIR résident du CP/M. En fait il 
n'en est rien et nous allons le vérifier 
immédiatement. 


Retournons la disquette pour la mettre côté 
LOCOSCRIPT. Tapons DIR [RETURN], tout 
fonctionne. Maintenant, tapons 

DIR °SIZES [RETURN]... Le drame, CP/M 
demande frénétiquement qu'on lui prête le 
programme DIR.COM en l’affichant vertement 
par ‘DIR COM required‘. 


Mais que s'est-il passé ? Eh bien c'est tout 
simple : sachant que nous avons ajouté une 
option, en l'occurence SIZE, entre crochets 
(représentés par ° et $ dans le jeu de caractères 
français) CP/M 2 immédiatement su que ce 
n'était plus de son ressort du fait de la présence 
du premier crochet. ‘Pourquoi ?‘* me direz-vous 
judicieuseument et vous aurez raison. C'est 
parce que CP/M est programmé comme cela. Le 
DIR résident n'affiche que les noms de fichiers 
et si l’on veut en savoir plus, il faut mettre 
notre requête entre crochets de façon à ce qu'il 
redirige automatiquement l’ordre sur le 
programme DIR.COM qu'il doit charger et 
exécuter. D'où l'obligation d’avoir ce 
programme dans le lecteur sollicité. 


Remettons le disque sur la face 2 et 
recommençons l'opération : 

DIR °SIZES [RETURN]. 

Que se passe-il ? 


CP/M sait que l’ordre est résident mais que la 
présence d’un crochet ouvrant va introduire une 
fonction qu'il ne sait pas faire. Dans ce cas il 
s'agit de l'option SIZE servant à connaître la 
taille des fichiers. 


Il cherche DIR.COM sur le lecteur. S'il ne le 
trouve pas il affiche ‘DIR COM required‘‘ 
alors que si DIR.COM est présent, il le charge et 
lui délègue l’impérieuse mission de donner aux 
petits curieux que nous sommes la taille en kilo- 
octets de tous les fichiers présents sur le disque 
(voir encadré 3). 


Les informations que nous venons d'obtenir 
commencent à s'étoffer. Analysons-les dans la 
mesure de nos connaissances sur le sujet : 


1. Les fichiers sont classés par ordre 
alphabétique de gauche à droite. 


2. Chaque nom de fichier est accompagné de la 
place qu'il occupe physiquement sur la disquette 
(exemple : BASIC.COM = 28 Ko). 


3. Que le nombre total de kilo-octets de 
l'ensemble des fichiers représentent 170 ko. En 
additionnant toutes les tailles, nous constatons 
l'égalité. 


UTILISATION CP/M 









4, Le nombre d'entrées au répertoire est de 27 
sur un total possible de 64. 


5. Le nombre total de fichiers est de 24. 


Nous pouvons déjà déduire que le terme anglais 
FILE signifie en français FICHIER et que BYTE 
veut dire OCTET (et non pas BIT comme la 
similude phonétique le laisse entendre. Retenez- 
le pour éviter une confusion trop répandue pour 
que je n'insiste pas). 

Autre constat, le nombre d'entrée au directory 
n'est pas égal au nombre de fichiers (27 entrées 
pour 24 fichiers). Cette angoissante évidence a 
torturé des générations d'utilisateurs et trouve 
pourtant un éclaircissement simple. Le directory 
catalogue les fichiers en gardant inscrit dans ses 
fiches personnelles, l'endroit où se trouvent les 
blocs de 1ko qui composent le fichier. Pour des 
raisons d'organisation, chaque entrée ne peut en 
contrôler que 16 et par conséquent, le nombre 
d'entrée augmente par tranche de 16 Ko. 


Vérifions-le : sur 24 programmes, 22 font moins 
de 16 Ko donc n'occupe qu'une entrée chacun. 
Seuls BASIC.COM et J14FCPM3.EMS en font 
plus. 28 Ko pour le premier, 40 Ko pour le 
second (regardez l'encadré 3). Donc 28 Ko 
faisant moins de 32Ko nous avons 2 entrées de 
16ko pour BASIC.COM et, suivant le même 
calcul, 3 pour J14FCPM3.EMS puisque 40 Ko 
est supérieur à 32 (2 x 16) mais moins grand 

que 48 ko (3 x 16). 


Résumons : 22 plus 2 plus 3 font bien 27 ! 


Dernier constat, la disquette n'offre plus que 
3ko de libre car à l'origine une disquette 
formatée en A permet le stockage de 173 Ko. 
Une simple soustraction nous informe 
immédiatement : 

173 Ko (place possible au départ) —- 170 Ko 
(place totale occupée) = 3 Ko (place libre) 


Si vous trouvez plus simple ailleurs, je vous 
rembourse la différence ! 


CP/M Pervers pépère… 


Dans le genre de perversités sournoises que le 
CP/M vous aurait probablement réservées si 

vous n'étiez pas arrivés jusqu'ici il en est une 
qui fait souvent frémir d'horreur les ignorants et 
qui s'explique par les informations que 
DIR.COM nous donnent quand on les lui 
demande avec gentillesse. 


Je m'explique : utilisant avec amour son basic 
préféré, Jeannot lapin, fait beaucoup de petits 
programmes rigolos pour amuser son adorable 
descendance. Les programmes sont courts car ils 
n'occupent qu'un seul kilo-octets chacun sur le 
disque. Tout fonctionne à merveille jusqu’au 
moment où Monsieur Jeannot sauvegarde le 65° 
et. Impitoyable, le système lui répond que la 
disquette est pleine. En expert incontestable 








(Madame lapine dixit !) il ne se démonte pas. 
‘‘Faisons comme c'est dit dans l’Echo* 
s’empresse-t-il de penser. DIR °SIZES 
confirme son pressentiment. La disquette n'est 
pas pleine. 64 programmes de 1 Ko font 64 
Ko, il reste donc 109 Ko de libre. Il déduit 
donc que ce PCW tant aimé n'est qu'un 
menteur, le met au coin pour le punir et 
explique à ses enfants consternés qu'un PCW 
aussi ingrat ne mérite qu'un châtiment 
exemplaire ‘‘pensez-donc, des disquettes à 3 
carottes le kilo-octets !**. 


Ce que Jeannot ne sait pas encore, c'est que le 
nombre d'entrée au directory est arrivé à 
saturation. 64 fichiers pour 64 entrées, le 
directory n’en peut plus et CP/M ne peut que le 
confirmer par un message d'erreur. 

Maintenant vous savez tout, Monsieur Jeannot, 
pardonnez-lui tant de rigueur et offrez-vous un 
calumet de luzerne en attendant notre prochaine 
rencontre, amitiés à Madame... 





LE CLUB ECHO, C’EST L’AFFAIRE 
DU SIECLE ! 


N’OUBLIEZ PLUS LE CLUB ET TOUS SES 
AVANTAGES... 






Ne" BOGART [Je 12NTe] "| HUMPHREY 
MEME 5 1/02/1989 NE 6 74894 


: SIGNATURE 
Cette carte strictement personnelle XXX 
donne droit a toutes les activites du club 


ABONNEZ-VOUS ! 







Inscrivez-vous 
avec le bon 
situé en 

pages centrales) 


Soit onze numéros 
pour 290 F 


ABONNÉS ! au lieu de 330 F 
n’oubliez pas prix normal 

de nous 

sn votre (Bon de commande en pages 
changement centrales, feuillet détachable) 
d’adresse… 
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En réponse à de nombreuses demandes, voici le 
moyen de faire une copie d'écran sur PCW : 


Pressez en même temps les touches [EXTRA] et 
[PTR]. Si cela ne démarre pas c'est que : soit vous 
n'avez pas de papier (mode continu), soit vous 
n'avez pas informé que vous en avez mis (cas du 
feuille à feuille). Pour le faire, pressez [PTR]. mettez 
le curseur sur le message ‘'attente papier‘ et pressez 
la touche située à gauche de la barre 
d'espacement. 

Pour interrompre une copie d'écran en cours d'impression. 
pressez [PTR] de façon continue jusqu'à ce que l'imprimante 
s'arrête puis [EXIT] pour sortir du menu d'imprimante. 

Dans le cas d'une copie d'écran sous LOCOSCRIPT. tout se 
passe de manière identique à l'exception de 

l'attente papier qui se supprime par [f2] puis [ENTER]. 
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Je constitue un dossier avec votre questionnaire pour, je 
pense, attirer votre attention sur le non-sérieux de vos 
programmes. N'y-a-t'il personne qui ait le courage de les 
taper et de voir le résultat. Je suppose que si. Votre 
disquette doit certainement marcher ! Auquel cas c'est grave. 
Voici deux programmes que j'ai tapés et qui ne marchent pas. 
Le premier, MATHELEM, le code 83 est identique à celui du 
86 dans FICHIERI.DEF. D'ailleurs je me suis arrêté, 
pouvant croire à d’autres erreurs plus loin. 

Le second, OTHELLO, je vous fournis mon listing, un peu 
modifié à ma façon qui corrige quelques erreurs 

retrouvables comme l'inversion des lignes 860-870... etc. 
En conclusion, je ne peux croire que ces erreurs soient dûes 
à une mauvaise impression d'imprimerie ayant travaillé il y a 
quelques temps dans un journal. J'attends avec impatience 
vos Corrections afin de réparer mes programmes mais bien 
plus, l'explication de tout cela ; rassurez-vous, pour l'instant 
vous ne perdez qu'un seul lecteur mais les autres suivront 
bien un jour. 


L’'ECHO 


C'est toujours avec tristesse que nous apprenons le départ 
d'un lecteur, mais il nous semble que vous êtes un peu dur 
et voici notre réponse. 

Les listings que nous éditons sont systématiquement issus 
d'un programme qui tournaient parfaitement 30 secondes 
avant son impression. La seule intervention de notre part est 


COMMENT SAISIR UN PROGRAMME 





EN BASIC MALLARD 


La façon de saisir un programme Basic à fait l'objet d'une 
étude approfondie dans l'Echo du PCW N°1 in ‘‘Un départ 
saisissant‘ qui reste complémentaire au livre 2 livré avec les 
PCW. 

Résumé : 

Allumez l'ordinateur et insérez la face 2 de la disquette 
système. A l'affichage de ‘A? ‘ tapez BASIC suivi d'une 
pression sur [RETURN]. Une fois sous basic, lancez la 
numérotation automatique par AUTO + [RETURN]. 

A chaque numéro de ligne affiché, tapez son contenu 
conformément au listing de l'article. 

Pour sortir du mode AUTO afin de corriger une ou plusieurs 
lignes, tapez [STOP]. 

Pour corriger une ligne. tapez EDIT suivi de son numéro et 
d'une pression sur [RETURN]. 

Exemple : EDIT 10 [RETURN] 

Pour lister sans corriger, tapez LIST [RETURN]. 

Exemple : LIST 10 [RETURN] ou LIST -100 [RETURN] ou 
LIST 10-100 [RETURN] ou LIST [RETURN] 

Faites des sauvegardes régulières du programme, même en 


COURRIER + L'ECHO DU PCW N°12 


COURRIER 


O 
0. 


l'écho 
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d'ajouter ou de supprimer des REM pour clarifier (dans le 
premier cas) ou réduire l'encombrement (dans le second cas). 
Cette manipulation a créé un seul problème qui nous à servi 
de leçon lors de l'article GSXDAO. Cette erreur, 2 fois 
corrigée dans Intéractif, avait été détectée par de nombreux 
lecteurs attentifs au fait que des GOTO lignes NNNN sans 
lignes NNNN devaient correspondre à leur absence. En 
essayant ils ont réglé le problème et ceux qui n'ont pas 
détecté l'anomalie nous ont appelé et ont eu par téléphone 
les numéros des lignes à remplacer. 

L'erreur des codes de MATHELEM est ridicule 
comparativement au travail effectué par KAGESOFT et la 
mettre en balance avec la qualité de son travail nous fait 
frémir d'épouvante…. 

Enfin pour ce qui concerne OTHELLO, non seulement ce 
programme marchait parfaitement mais de plus il a été élu 
par les lecteurs. 

Par conséquent si vos griefs sont justes, votre position nous 
paraît disproportionnée avec la valeur de ces programmes 
que les auteurs mettent souvent plusieurs mois à mettre au 
point et dont certains trouvent leur équivalent dans le 
commerce à plus de 200 F pièce... 

Pour terminer dans la franchise, nous reconnaissons 
totalement que les disquettes sont exemptes des erreurs qui 
ont été détectées par nos soins ou celui des lecteurs. La 
raisons en est évidente: le journal est bouclé 15 jours avant 
qu'il ne soit disponible alors que les disquettes sont 
dupliquées chaque semaine et qu'en toute logique, nous leur 
apportons systématiquement, les dernières modifications. 
D'ailleurs, si vous comparez la formule avec celle d'un kit, il 
est évident que vous ne pourrez pas mettre les erreurs de 
montages sur le dos du producteur sous prétexte qu'il le 
vend tout monté plus cher. Et pour nos erreurs, nous vous 
prions de nous en pardonner encore une fois mais nous 
pouvons toujours les réparer d'un numéro sur l'autre... 
Nobody is perfect ! 


cours de saisie, en mettant une disquette vierge en À et en 
tapant : SAVE ‘Nom du programme‘ [RETURN]. 
Exemple : SAVE ‘‘ECHO‘ [RETURN]. 


Conseils : 

Ne lancez jamais un programme avant d’en 
avoir fait une sauvegarde. 

Utilisez les mêmes noms que ceux conseillés ‘par l'auteur 
(dans son article ou sur la disquette qui l'accompagne). 
Vérifiez ligne par ligne que ce que vous avez tapé est 
strictement identique à ce qu'indique le listing. Soyez 
particulièrement vigilants dans les cas suivants : 

Ne confondez pas : point virgule et deux points, point et 
virgule, i majuscule et 1 minuscule ou le chiffre 1. 
Respectez : les espaces, les guillemets, les REM et les 
numéros de lignes. 

Ne modifiez pas un programme avant d'être certain qu'il 
fonctionne totalement. 

Les erreurs se produisent rarement dans la ligne responsable 
de celles-ci. Seule SYNTAX ERROR ou erreur de syntaxe 
dans la saisie, arrive dans une ligne mal écrite. c'est pour 
cette raison que le basic Mallard l'édite automatiquement. 
Dans tous lés cas, reportez-vous à l'annexe II du manuel 
Amstrad. 
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LRUE DU PINACLE + 93170 BAGNOLET + TELEPHONE 43 63 42 42 e TELECOPIE 43 63 11 15 + MODEM 43 63 01 75 





Du 6 au 9 Novembre 
Parc des Expositions - Porte de Versailles - Paris 


PLUS VITE ET MOINS CHER 


Nom . - ____ Prénom 
Adresse —— 
Code Postal —  — _Ville 
J'évite les files d'attente, je souhaite réserver dès aujourd’hui, au tarif préférentiel de 20 F 
(au lieu de 25 F). Je joins un chèque postal ou bancaire et une enveloppe timbrée pour la 
réponse. | 
Nous vous ferons parvenir votre entrée. 


Coupon-réponse à retourner à S.O.S.LS. 187, ruc Marcadet 75018 Paris avec une enveloppe timbrée à votre adresse LE MORDANT INFORMATIQUE 


Mendès-France MC 


